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«ENABLE SUPPRESSION 


COPYRIGHT (c) 1978, 1980, 1982, 1984 


ALL RIGHTS RESERVED. 


Y IN ACCORDANCE WITH THE TERMS OF SUCH 
COPIES THEREOF MAY NOT BE PROVIDED OR O 
TRANSFERRED. 


CORPORATION. 
DIGITAL ASSUMES NO RESPONSIB 
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erarenaae NT: 


follow "hs Brat vileges and quotas: 


Sysco 


This AP wy ee gre, cond)t tens) assembly, FT_NO 
described where it is defined (or left undefine 
Successful Linking requires SYSSSYSTEM:SYS.STB. 
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NATION OF wh 


his program will run in user access qnete with the ence 
routines which run in kernal mode. e first routine f 
parameters associated with a given skenel memory and the second returns 
the operating syeten version and hardware ECO levels. 
enabled except during error processing. This program requires the 


(to read shared memory parameters) 


7800.mAR:1 


ot fe ‘kceh y. FURNISHED UNDER A LICENSE AND yi? cl hem uitn tte 

INCLUSION OF THE ABOVE pedal og ty THIS SOFTWARE OR ANY OTHER 
THERWISc MADE AVAILABLE TO ANY 

OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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This module will be distributed with VAX/VMS under the CSYSTEST] 
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When this test was written, ~_ 11/780 CPUs had shared memory. Since 
the test relies on the ECO level from a processor register, the test 
must be modified should other CPUs eventually run it. 


>_> 
Wr—-O 
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AUTHOR: Richard N. Holstein, CREATION DATE: August, 1981 
MODIFIED BY: 


v03-012 RNHOO11 Richarg N. Holstein, 13-Jul-1984 
Include our node name in global section file Pore t to allow for 
simultaneous runs on a cluster with a common SYSSTEST. 


v03-011 RNHOO10 Richard N. Holstein, 15-Feb-1984 
Take advantage of new UETP message codes. Fix SSERROR 
jotercgct ion with RMS_ERROR. Account for the possibility of 
11/785 systems with Shared memory - modify what we believe the 
ECO Level field to be in the PR$_SID register. 


v03-010 RNHOO09 Richard N. Holstein, 19-Dec-1983 
Give correct sentinels to Test Controller. 


V03-009 RNHOO0S8 Richard N. Holstein, 21-Nov-1983 
Use decimal conversion routine for unit numbers. 


v03-008 RNHO007 Richard N. Holstein, 11-Mar-1983 
Don't signal ending message in EXIT_HANDLER. 


V03-007 RNHO006 Richard N. Holstein, 25-F eb-1983 
Allow for longer device names. 


V03-006 RNHOO0S Richard N. Holstein, 22-Dec-1982 
Fixes from the V3B UETP Workplan: better message if sending 
interprocessor mail fails, close INTERLOCKING_TEST window, 
reduce kernel mode code. 


V03-005 RNHOO004 Richard N. Holstein 15-0c t-1982 
Miscellaneous fixes Listed in the V38 UETP Workplan. 


V03-004 LDJ0004 Larry D. Jones, 15-Apr-1982 
urn off interprocessor interaction - include definition of 
FT_NO_INTERACT. 


v03-003 RNHOO03 Richard N. Holstein, 29-Mar-1982 
Turn on losergrecessor interaction - remove definition of 
FT_NO_INTERACT. 


v03-002 RNHOO002 Richard N. Holstein, 05-Feb-1982 
Don't let RCVMB_AST blithely continue if it sees a mailbox 
before we're rouny for one. Don't SCMKRNL to do a $SETPRV, 
SYSTEST now has SETPRV privilege. 


v03-001 RNHOO01 Richard N. Holstein, 28-Aug-1981 
Final development for Edition A, Field Test 1. 
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00000001 
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ons “S$ 


-SBTTL Declarations 
INCLUDE FILES: 


SYSSLIBRARY:LIB.MLB 
SHRLIBS:UETP.MLB 


MACROS: 


SSYIDEF 
SUE TUNTDEF 
SUE TPDEF 


x 

x 

x 

x I 

x” DOCLEAR,10 
x ISCLEAR 

: INTERLOCK 
x 

y 

x 

M 


BYEBY 
.ENDM MAILBOX_MSG_TYPES 


: EQUATED SYMBOLS: 


RMSS_FACILITY = 


SHR message definit 
UETP = UETPS_FA 
UETPS_ABENDD = 
UETPS_BEGIND = 


oO de te kk kt a bs ns as as ss 2 ss as bs ss a as a tn a a a tt a a 


SIND DPD PPA AAD TT Be BS BS BB BB NINN NII NII nnn nnononomnnn— 
ROOD NA NEW 9 OD OD NAME WIN  O OO NA UNE WI CO OD NAME WN O OD NAUSEA" O OOO 


Pa19he Oei85:86 LurtPer. see IUETMA7SOO.maR:1 2% (3) 


for general efinitions 
for UETP definitions 


Sete Ge Se Se Be Ge Ge Ge Ge Ge Se Ge Ge Ge Fe He He Be Se 


: Facility number definitions: 


Adapter control block 
gongn even handler frame definitions 
Device definitions 
evice Information Block 
a bgt ITMLST item codes 
File Access Block 
SGETJPI1 ITMLST item codes 
mua tieers memory adapter reg. offsets 
NAM block offsets 
Internal processor registers 
ar ceriegee 
Record Access Block 
Shared memory control block 
Shared memory datapage 
Shared messages 
System Service status codes 
Status return 
SGETSYI ITMLST item codes 
a unit block offset definitions 


Define interprocessor mailbox codes 
Announce me to another processor 

I see you, do you see me? 

We see each other 

You need glasses to see me 

Please set a common event flag 

I set the requested common event flag 
Please clear a common event flag 

I cleared the requested CEF 

Start memory interlock test 

I'm trying to talk to myself 

I can talk to mysel 

I think you went away 

I've gone away, this is my Last action 


Yast FAC_NO ; Define the UETP facility code 
sins pace ; Define the UETP message codes 
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4) 173 UETPS_ENDEDD = UETP!SHRS_ENDEDD 
4) ! UETPS_OPENIN = UETP!SHRS$_OPENIN 
41 i UETPS_TEXT = UETP!SHRS_TEXT 
177 ; ~=—s Internal flag bits.,.: 
138 Test. VERY = i Set when test is over 
17 sare 0 UPDV = ; Set if it’s safe to update UVETINIDEV 
1 9 BEGIR_MSGV i Set if "BEGIN’' msg has been printed 
4 1 ONE _SHOTV = ; Set if running in one shot mode 
1 § ; 70 tnd orresponding masks: 
? 1 TEST_OVER = TATEST_OVERV 
1 : gare O_UPDM = 1@SAFE_TO_UPD 
| 1 BEGIA_MSGM = 1aBEGIR_MSGv 
00001 } § ONE _SROTM = 1@0NE_SAOTV 
1 3 5 Wisco) lanes 
4 $ 1 ” = *xX20 ; Mask to convert lower case to upper 
00 1 » REC_SIZE = $8 ; UETINIDEV.DAT record size 
Bo8 19 TEXT_BUFFER = 200 : Internal text buffer size 
0 136 EFN2 = 4 3; EFN used for three minute timer 
: 19 SS_SYNCH_EFN = 3 3; Synch miscellaneous system services 
0000 194 MAR_PROC_NAME = 15 ; Longest possible process name 
000000A 195 MAX_DEV_BESIG = 10 ; Longest possible controller name 
0000005 196 MAX_UNIT_DESIG= 5 i Longest possible unit number 
198 ; To make it easy to switch between a version of this test which communicates 
199 ; between processors connected to a memory and a version which is unaware of 
00 ; other grecessors running UETP, we have the FT_NO_INTERACT assembly switch. 
01 ; Communication between processors will work when each tries to reference 
86 ; objects in shared memory by the same name. Names of objects are formed by 
8 3 poneeenne ne the memory name, the object type, the memory unit number and 
4 ; the port number by which the memory sees our processor into an ASCII string. 
5 ; However, the ‘Length’ of the ASCII string is affected by the FT_NO_INTERAC 
$ ; assembly switch. If the switch is defined, include that last number and 
; prevent interaction. If it's not defined, don't count the Last number and 
3; thereby create names which allow objects to be shared between processors. 
10 3FT_NO_INTERACT= 0 : If defined, assemble code which... 
11 3; «--dlocks interprocessor seat ingeos 
\§ 5 acct creating unique GS and CE 
15 .1F NDF FT_NO_INTERACT 3; Preventing interprocessor knowledge? 
00000002 13 OTRER-CHARS = 2 ; No, GS and CEF names are short 
1§ OTHER CHARS = 3 ; Yes, names include MPM port number 
17 .ENDC =; FT_RO_INTERAC 
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5 mul stpert power? specific definitions: 
PROCESSOR_MA 24 3; Max of greceseors connected 9 memory 
COMGS_VERSI = 12345 ; GS version for consistency (16 bits) 
4 CONSIS_ CHECK = FOMGS_VERS1ON@16 PROCESSOR MAX 
COMGS_RAME LEN = 15+ i Space in incergrocessor GS for ASCIC name 
COMGS QUEUE _MAX = 90 ; Queue entries in interlock tests 
-1IF GE COMGS QUEUE" MAX-65 g. «ERROR 0 ; COMGS_QUEUVE_MAX must fit into word 
¢ COMGS_PVT_AREA = 51 : Size Of each processor's private area 
F COMGS_PVT CODE = oes PVT_AREA=8 ; Spece at end reserved for ‘‘mycode”’ 
D4 ADAWI-LIMT = 200000 ; How high ADAW! interlock test counts 
448 QUEVE_LIMI = 200 ; How many times queues are emptied and fill 
0 A INTERCOCK_LIMIT = 3; How many seconds we'LL stall until... 
3; -«-all processors have finished... 


: the interlock test 
<GS_K_END+511>/5i2 ; Size of interprocessor GS, blocks 


3; COMGS_SIZE 
3; (defined after GS_K_END defined) 


0003000 WRITE_SIZE = 8192 : Single processor GS size in bytes 
000 91 SPRGS_SIZE = <WRITE_SIZE+511>/512 ; Single processor GS size, blocks 
4 Hi COMGS_EFN = 6 ; Flag whils DSEC interprocessor GS 
000003F SPRGS_EFN = 6 3 om to indicate that SEC of... 
3 «e.the single proc GS is !NOT!... 
3 «e-iM progress. This must be... 
3 «e-$et constantly except during... 
3 «--SUPDSEC to ensure that we don't... 
3 eneneng n CLEANUP. It must also... 
£ see n a local cluster 
00000040 SPREF_EFN = 64 ; Bit of single processor CEF cluster 
00000060 COMEF _EFN = 96 ; Bit 0 of interprocessor CEF cluster 


Exactly one of the mailbox message codes must be in each mailbox sent for 
interprocessor communication. Codes are defined sequentially via the mailbox 
message macro, starting with 1, so that one ay neatly dispatch in the 
mailbox receipt routine and catch some errors if one gets a bogus mailbox. 
Associated with some mailbox types are timeouts. For those where they exist, 
define a number of seconds equal to that timeout. 


«MACRO X MBCODE , SECONDS 3; Define mailbox type codes and timeouts 
MSG_"MBCODE = Xx 
a Na = XX-1 ; Limiting value for CASE instructions 


-IF NB SECONDS 
MBCODE’ TIMEOUT = SECONDS * -10000000 
-ENDC ; NB SECONDS 
-ENDM XX 
00000001 


PAAR AR AMAA AAAI BS EB EWN WIN AINA AIAIIPOPOPOPOPNOPONINORD 


MEAN HOOD NAU EWN SO OD NAME WN OS OD NAW EWN 0 OD NOUS Wh OO 


SOQOOOCOCOOOOOCOOOOOOOOOSOOOSOSOOOOSOOOoOoOO 


SOOOCOCOCOCOCOOOCOOOOOOOOOOOCOCOOSoOOoOO 


SOSCOCSCOCSCOSOSOOCOOOSOOSOSOOSOSOSOSOOSOSOOSOSOOSOO 


OOOCOCOOCOCOOCOOCOSOOOOOOCOOOoOoOoOOSSO 


XX = 1 
MAILBOX_MSG_TYPES ; Define mailbox type codes and timeouts 
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For each poe? there will be a a structure set up, called a node. 
These nodes will be Linked together in a oe; toret ative queve whose header is 
wt LIST. The first part of each node will the standard definition from 
UETONTDEF. Fo ill come the device test endent stuff 


towing sper w - 
ge ined below. NOTE THAT THIS DEFINITION IS DONE WITH ABSOLUTE PSECT. 


4 
0 
re his means that what look Like declarations are really definitions and the 
74 ; labels are really just offsets into a given node on the queve. (A not 
75 ; necessarily obvious consequence of ——s an ABS PSECT is that space must be 
0 6 reserved with .BLKx operations, since .BYTE, etc., attempt to store data.) 
4 -PSECT DEVDEP_STR_DEF ,ABS,NOEXE,NOWRT,PAGE ; Note ABS attribute! 
000001A4 oY et -BLKB UETUNTSC_DEVDEP ; Skip over standard UVETUNT block 
1A4 $ MA_Q_DAYTIME: ; Code used to ensure interprocessor... 
000001AC 1 S27 -BLKQ 1 3 e+-communication 
1AC HG MA_B_MYPORT: : x port number on this memory 
QOO001AD OQ1AC Hf) -BLKB 1 3; Since BBIZ1 needs a Longword, allow... 
00000180 18 fA -—BLKB 3 : weefiller to save much code later on 
01B0 89 ; The following all denote error conditions and may be accessed as a single 
01B0 90 ; block; hence there is a reliance on their being contiguous. There is no 
9180 91 : restriction on their ordering. 
i ' 35 MA_L_ERRBLK: ; Start of contiguous area 
$180 94 MA_L_SILOSTU: ; Bit mask. Bit Lit if yn 11 A acs 
000001B4 ney 2 -BLKL 1 3 «e-Was sent an ILOSTU mailbox 
0184 38 MA_L_RILOSTU: ; Bit mask. Bit Lit if memory port... 
00000188 Ht 38 -BLKL 1 3 «--sent me an ILOSTU mailbox 
O18 00 MA_L_RBADCODE: ; Bit mask. Bit Lit if memory port... 
000001BC 109 b3 -BLKL 1 3 «-.sent me a BADCODE mailbox 
1B¢ 08 MA_L_SBADCODE: ; Bit mask. Bit Lit if memory port... 
000001C0 18 Be -BLKL 1 3 «was sent a BADCODE mailbox 
1C $ MA_L_DOSETFAIL: ; Bit mask. Bit Lit if memory pert... 
000001¢4 5 , | oe 3; «failed to set requested bit 
1¢4 5 MA_L_DOCLEARFAIL: ; Bit mask. Bit Lit if memory port... 
000001C¢8 \¢ 19 -BLKL 1 3 «failed to clear requested bit 
1C \§ MA_L_NOCAUSE : ; Bit mask. Bit Lit if memory port... 
000001CC Ae 1? -BLKL 1 3 «e.sent me a mailbox for no cause 
1¢C 15 MA_L_OLDSTUFF: ; Bit mask. Bit Lit if genery port... 
000001D0 AS 18 -BLKL 1 3 «e-sent me mailbox before | was ready 
1D 18 MA_L_INTLKTMO: ; Bit mask. Bit Lit if memory port... 
000001D4 199 1 -BLKL 1 : «eefailed to finish interlock test 
1D4 ? MA_L_IADAWI: ; Bit mask. Bit Lit if are ports «. 
00000108 3138 ¢ -BLKL 1 3 «.-produced an inconsistent ADAW! sum 


leg 
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0000010¢ 
0000002C 


000001E0 
000001E4 
000001E8 
000001EC 
SHES 
000001F1 


000001F9 
00000208 


00000210 
0000022F 


00000237 
00000256 


00000258 


00000260 
0000027F 


00000287 
000002A6 


000002AE 


SOOQOOOCOOOCOCOOCOOCOSOSCOCOOCOCOCOCOCOOOSOOOCOOOOOOOOOoOO 


Ooo 
POPIPOPIPOPIPIPORIPOPIPOPOPOPONIPOPOPOPOPONOPOTOPOPIND 2 2 2 9 3 3 3 SS 


MA_L_IQUEUE: 
~BLKL 


4 

5 

5 MA_K_ERRLEN = 
: MA_L_HELLO: 

0 »BLKL 


Wt 


5 MA_L_DOSET: 
«BLKL 


: MA_L_DOCLEAR: 
-BLKL 


4 
5 
09 MA_T_UNIT: 
-BLKB 


MA_0_MERNAR: 
MA_T_MEMNAM: 
-BLKB 


SAAAAAAAAAAS MIMI 
WONOA UE WO ODNOAULS WHO Oo 


78 

73 MA_Q_SPRGSNAM: 
75 MA_T_SPRGSNAM: 
, -BLKB 
7 NA_0_SPREF NAM: 
80 MA_T_SPREFNAM: 


MA_L_ICU_UCME: 
~BLKL 


MA_Q_COMGSNAM: 
MA_T_COMGSNAM: 
-BLKB 
MA_Q_COMEFNAM: 
MA_T_COMEFNAM: 
.BLKB 
MA_W_COMMBCHN: 
-BLKW 


NA__CORMBNAR: 
0 MA_T_COMMBNAM: 
71 -BLKB 


Sr$Ep=198e 00:85:56 UOetesr.seiuevRa7boo.man:1 28 (dy. 


.“MA_L_ERRBLK ; 


1 


1 


1 


1 


15 


1 
1541415 


1 
1541415 


1 


1 
1541415 


1 
1541415 


1 


; Bit mask. Bit Lit if memory port... 
3; «left an inconsistent queue 


End of items which must be contiguous 


Bit mask. Bit Lit if memory port... 
++-Was sent HELLO mailbox, need reply 


Bit mask. Bit Lit if memory port... 
«+-was sent ICU_UCME MB, need reply 


Bit mask. Bit Lit if memory port... 
««-was sent DOSET MB, need reply 


Bit mask. Bit Lit if memory port... 
-+-was sent DOCLEAR MB, need reply 

Unit number of this memory 

To parallel code in the exec, a word 

is allocated, but vous ty only a byte 

is used. Another word is allocated 

to allow PUSHL for system service calls 


Holds ASCII equivalent of hex unit 


Descriptor for... 
«+.memory name from SYSGEN 


Descriptor for... 


+.-interprocessor global section name 
shared-mem-name :global-sec-name 


Descriptor for... 


«+-interprocessor common EF cluster 
shared-mem-name:cluster-name 


Channel for another processor's MB 


Skeleton of descriptor for... 


-»-another processor's mailbox 
shared-mem-name :mai lbox-name 


Descriptor for... 


«»emy single processor global section 
shared-mem-name:global-sec-name 


Descriptor for... 
---Single processor CEF cluster 


H 16 
TMA7800 VAX/VMS UETP DEVICE TEST FOR MA780 16-SEP-1984 00:27:39 VAX/VMS Macro v04- Pa 8 
Vbue008 Declarations $73 EE 1 38e 0:95:83 UETPSY. SREIUETMA7S00.MAR; 1 ot: (4) 
000002CD a -BLKB 1541415 ; shared-mem-name:cluster-name 
CD MA_L_SPREFSTATE: ; Single processor CEF stat t 
o0o0e21 2cD $84 “BLKL 1 art ate Seen 
D1 MA_W_SPRMBCHN: ; Channel for this processor's MB 
9090023 020 ; -BLKW ‘ 
00002D 4 3 -BLKW ; Filler allows easier use in SS calls 
D 90 MA_Q_SPRMBNAM: ; Descriptor for... 
neers Db 3 mA. T_spriguan te ilb 
t 3; «--this processor's ma 
000002FC 43 38 ~ ALB. Hotes : shared-mem-nane:mai lDox-name 
00000014 FC 95 MA_T_COMFAB = UETUNTST_FILSPC ; Define these symbols as the... 
0000011 8 FC 38 MA_K_COMFAB = UETUNTSK_FAB 3 «+-Standard UETUNT symbols... 
0000016 4: 4 MA_K_COMRAB = UETUNTSK_RAB 3; «--jJust so all structures look alike 
6 FC 99 MA_T_SPRFAB: ; -ASCII filespec for single processor GS 
000003FB 4 401 ~-BLKB NAMSC_MAXRSS 
O3FB 4 § «ALIGN LONG | 
O3FC 403 MA_K_SPRFAB: ; Space for single processor section FAB 
0000044C¢ ares the -BLKB FABSK_BLN ; See note where COMGSFAB is defined | 
gece rh MA_K_SPRRAB: ; Space for single processor section RAB 
00000490 rf rth -BLKB RABSK_BLN ; See note where COMGSFAB is defined 
$499 409 MA_T_CHKFAB: ; -ASCII filespec to check single proc GS 
0000058F Bear 219 -BLKB NAMSC_MAXRSS | 
OS8F tig -ALIGN LONG 
0590 413 MA_K_CHKFAB: ; Space for single proc section check FAB 
0000050 9590 414 .BLKB  FABSK_BLN ; See note where COMGSFAB is defined | 
O3E0 416 MA_K_CHKRAB: ; Space for single proc section check RAB 
00000624 2 ? at -BLKB RABSK_BLN ; See note where COMGSFAB is defined 
be 4 419 MA_Q_COMGSIAD: ; Suggested starting address for interproc G 
0000062C : 2 y ~BLKL 2 
Og C 4 § MA_Q_COMGSRAD: ; Actual starting address for interproc GS 
00000634 ? 2 ? ~BLKL 2 
634 425 MA_Q_SPRGSIAD: ; Suggested starting addr for single proc Gs | 
0000063C ° " 2 § ~BLKL 2 
ote 4 3 MA_Q_SPRGSRAD: ; Actual starting addr for single proc GS 
00000644 o7f ? | -BLKL 2 | 
644 431 MA_Q_SPRGSISB: ; 10SB for SUPDSEC of single processor GS 
0000064C¢ oe ? § -BLKQ 1 | 
000004a8 64¢ 4 4 DEVDEP_SIZE = .-UETUNTSC_DEVDEP ; Device dependent part of UETUNT | 
eet 4 § MA_K_SPRBUF : ; Buffer to store single processor GS data 
0000264C¢ 4C 4 -BLK WRITE_SIZE 


nag 
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ae 
0000464C re: 


464C 
00000024 464¢ 


“SEP=19 


a3 MA_K_CHKBUF : 
-BLKB WRITE _SIZE 


2} 

4a PAGES = <<UETUNTSC_INDSIZ+= 
44 DEV + if P_STZE+= 

Gog WRITE “SIlE+- 

465 WRITE SIZE+= 

446 511>/512> 


nn 


i a at BS 9 a SH AX/VMS Macro V04- Page 


UETPSY.SRCJUETMA7800.MAR; 1 ( 


; Buffer to read check single processor GS 


Add together all of the pieces... 
««eWhich make a UETP unit block... 
«+-toO give to the SEXPREG service... 
. below 


) 


< 
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Declarations 


00000001 


00000002 


00000003 


00000005 


0000001F 


464( 


SOOODDDODDODDDODOODOCOOOODOOOOOCOOCOs 
SS 3 3 3 SS SB ISI IG OOO OOOO 
AA HAMANN = 2=OOOO 


CGOOCCCOCOCCOoCOoCoOoCOooOOooOOooOOoOoOoOSoOS 


i at a at ot a ee 
PERAEXQPEQ MMIII 
PWR ODOONAUSWNI—OOOD 


~ 
or 
Ww 


6 
46 


SEP- UETPSY.SRCJUETMA 


: There is a standard format for messages passed via interprocessor mailboxes. 
See the functional spec and the mailbox AST routine for summaries of what 
; is actually passed. 


MB_B_RECEIVER: 
-BLKB 


MB_B_UNIT: 
BLKB 


-PSECT 
MB_B_SENDER: 
-BLKB 


MB_W_WHY: 


-BLKW 
ser 
467 MB_K_MISC: 

8 -BLKB 


49 
470 MB_K_END: 
471 


FS ot at at at at at att 


OOonNNNN YN 
M—OOCONOUS 


INTER_PROC_MB,ABS,NOEXE,NOWRT,PAGE ; Note ABS attribute! 
; Port number of sender 


; Port number of receiver 

; Shared memory unit number 

; Why sent (one of MSG_* codes) 

; Other misc info, dependent on MB_W_WHY 


26 
; End of mailbox 


Whenever a timer is associated with a mailbox, the REQIDT parameter is 


defined as: 


-BYTE 
-BYTE 
- WORD 


shared-memory-unit-number (MA_W_UNIT) 
receiver's-port-number (MB_B RECEIVER) 
reason-for-sending-mail (MB_Q_WHY) 


K 16 
TMA7 VAX/VMS UETP DEVICE TEST FOR MA780 16-SEP-1984 00:27:39 VAX/VMS Macro V04- P 1 
Vbue008 Declarations mist 7 3:95:83 UETPSY. SREIUEYMA7SO0 MAR; 1 — (6) 
1F = 484; 
1f 485 ; There will be an interprocessor global section accessed by all processors 
1F 4 § ; attached to a shared memory. To get a good description of how the section 
if 2 ; is used, see the functional spec for this test. 
Af : 5 : -PSECT INTERPROC_GS_DEF ,ABS,NOEXE,NOWRT,PAGE ; Note ABS attribute! 
00 491 GS_T_SECT_NAME: ; ASCIC global section name 
00000010 if 138 -BLKB COMGS_NAME_LEN ; Use this for consistency checking 
01 494 GS_L_VERSION: ; UETMA7800 GS version, ma rts 
00000014 31? 636 -BLKL 1 ; (Interprocessor consistency check) | 
14 497 GS_Q_SYSGQVERSION: ; VMS .ASCII si b 
0000001¢ a014 498 "BLKQ. 1 pete apm | 
O1C 500 GS_L_ECOLEVEL: ; Hardware ECO Level of cPu | 
00000020 it i net Ma ae spe aS eartpes | 
00 03 GS_L_OWNER: ; Port number of ti 
00000026 09 0 304 ES is r of creating processor | 
0024 506 GS_L_AVAILABLE: ; Bit mask. Bit Lit if memor Ptess 
00000028 6° ; 309 -BLKL 1 3 «+-has cooperating processor o | 
0028 509 GS_L_CEF_FLAG: ; Flag which marks interprocessor... 
0000002¢ Boee i? pee : CEF test in progress (flag and port) 
O2C 512 GS_L_PARTICIPATING: ; Bit mask of procs starting interlock test | 
00000030 35 318 -BLKL 1 ; Must lanediotety preceed as LF INISHED 
0030 515 GS_L_FINISHED: ; Bit mask of procs finishing interlock test 
00000034 Boge 218 -BLKL 1 ; Must immediately follow GS_L_PARTICIPATING 
0084 218 GS_L_INTLK_FLAG: : Flee which marks tater toch ing... 
00000038 faite ah -BCKL 1 3 ««-test in progress (flag and port) 
O38 521 ALIGN WORD ; ADAWI must be word aligned 
03 5 § GS_L_ADAWI_COM: ; Common ADAWI count word - grand total 
0000003¢c 8 . 2 ? -BCKW = 1#1 ; Includes overflow word, as well 
003C 525 GS_K_ADAWI PVT: ; Private ADAWI count per processor 
0000004¢ Bore § -BCKW PROCESSOR_MAX*<1+1> ; ADAWI, overflow. Adjacent to ADAWI_COM 
itt 8 GS_K_Q_COUNT: ; Per processor count of ‘‘busy’’... 
00000054 Boas 3 -BLKW PROCESSOR_MAX 3 «+-Queue entries 
54 1 ALIGN QUAD ; | 
28 § GS_Q_FREE: : ““Free’’ queue header = 
00000060 2 z -BLKQ 1 ; Keep adjacent to ‘“‘busy’’ queue header | 
$60 5 GS_Q_BUSY: ; ‘Busy’’ queue header 
00000068 ? § -BLKQ 1 ; Keep adjacent to queue entries 
Oe 8 GS_K_Q_ENTRIES: : Busy ond free queue entries 
000006A8 $e ij -BLKL COMGS_QUEUE_MAX*®<1+1+1+1> ; Flink, blink, port number, filler 


vung 


| 


: 
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i 41 GS_K_PVT_AREAS: ; Private areas for each processor. Each... 
OOOO0EAS o 4 -BLKB PROCESSOR_MAX*COMGS_PVT_AREA 3 «+-last quadword gets MA_Q_DAYTIME 

4 

5 


; End of global section 


EA : 
00000008 OEA ZE = <GS_K_END+511>/512 ; Size of interprocessor GS, blocks 


ac aa a ae a a aN aa a a a re — 
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F008 Read-Only Data ~eeen18be bei85ike LOTNSS sees ee mans1 2% 13, 


L Read-Only Data 
T RODATA, NOEXE ,NOWRT , PAGE 


ser pate ; Process name on exit 


53 45 54 53 59 53 permanadincmens CID /SYSTEST/ 


; This test name 


o 
So 
So 
So 
> 
MW UUW 


TEST_NAME : 
.AS 


37 41 4D 54 45 55 eee ey CID /UETMA7800/ 


‘? 
43 
39 
5 
° a 
54 
2 55 
0 33 SUPDEV_GBLSEC: s 0 TSUPDEV.DAT 
50 55 53 54 45 55 00000028"910E9000" 90 3§ <PVASCID /UETSUPDEV/ on oe oe 
56 45 44 . $58 
00 59 CONTROLLER: ; Logical f troll 
41 GE 4C 52 54 43 00000039"010E9000" 051 560 SASCID /CTRLNAME/ ee eee 
004 561 
004 206 MODE : ; Run mode logical name 
45 44 4F 4D 00000049'010E0000' Bae 87 eASCID /MODE/ 
004 268 NO_RMS_AST_TABLE: ; List of errors for which... 
00000000" 004 266 -LONG RMS$_BLN 3 «RMS cannot deliver an AST... 
00000000° 005 56 -LONG RMS$_BUSY 3; ...even if one has an ERR= arg 
00000000° 005 568 «LONG RMS$_CDA ; Note that we can search table... 
00000000' 005 28? ~-LONG RMS$_FAB 3 «e.via MATCHC since <31:16>... 
00000000" 005 570 -LONG RMSS_RAB 3 «pattern can't be in <15:0> 
00000014 $6 24] NRAT_LENGTH = .-NO_RAS_AST_TABLE 
006 258 SYSSINPUT: ; Name of device from which... 
4E 49 24 53 59 53 emmy yf 006 574 -ASCID /SYSSINPUT/ 3 «the test can be aborted 
™ : $09 575 
8 576 INPUT_ITMLST: ; SGETDVI arg List for SYSSINPUT 
0020 0040 577 -WORD 64,DVIS_DEVNAM ; We need the equivalence name 
0000000C '00000014" 0 78 -LONG BUFFER,BUFFER_PTR 
00000000 8 a -LONG QO ; Terminate the List 
381 CNTRLCMSG: 
582 -ASCID \Aborted via a user CTRL/C\ 


NO 
mou 
on 
wns 
~™N 
wn 
NO 
wn 
row 
on 
POe 


1 9000088" 91 05 000° 
1 20 61 93 6 
3 2F 4C 52 54 43 20 3 

38s NO_CTRLNAME : 
of 6F 63 § 6F $6 000000AB'010 5 -ASCID /No controller specified./ 
63 65 70 20 7 § 6C of 6F 3 

E 64 65 69 6 

5 


8 
5? DEAD_CTRLNAME : 
8 -ASCID 


ec or i r ee ef SoEEEE /Can't test controller !AS, marked as unusable in UVETINIDEV.DAT./ 
URE ESO Be Bs 
2E 54 41 44 2E 56 45 44 4 


> NOS § WINNS §- WWII ONIPINITH NPP Fi SO OU" 9 OO eS SO TS I NOOOU THN THM 


589 


1 
VAX/VMS UETP DEVICE TEST FOR ma786 1 
pees Data 


A 
A 
8 
4 


4 
5 
6 
? 
7 
8 
9 
9 
9 
9 
a 
B 
B 
8 
B 
C 
C 
C 
C 
C 
C 
C 
D 
D 
D 
D 
E 
E 
E 
E 
E 
E 
F 
; 
| 


oe 28 ee 


Soe Tr 2} 059000" 
69 74 61 64 70 
56 45 44 49 GE 49 
FFFFFFFF 94862E00 


00000005 
0000001A" 


0000 00238 
00000014" 


000001DC'010E0000' 
000001E8*010E0000" 
000001F 6°01 6090" 
6F 72 72 65 "503 

41 21 20 65 

6F 72 74 6 


61 6E 67 3 % i 


000000 


000000 
Bo000000 


SOM OOO ND MF HNOOMMMNOOOL & LOOM ODL &£ LODO MNO PMNS LLU PMOOCO 


AX/VMS 


“SEP-19 0:27:39 cro V04- bg 14 1 
~3een18bs 8n:8Sise LOEEYES Bacee. Vee 88 man:1 28° 14, vO 
239 NOUNIT_SELECTED: 
91 -ASCID /No units selected for testing./ 


CT 
ASCI 


9 
358 ILLEGAL _REC: 
94 ~ASCID /Illegal record format in file UETINIDEV.DAT!/ 


95 
536 PASS_MSG: 
9 eASCID /End of pass !UL with !UL iterations at !%D./ 


598 
599 INIDEV_UPDERR: { ; Error during exit handler 
600 -ASCID /Error updating UETINIDEV.DAT./ 


601 

602 THREEMIN: ; 3 minute delta time 

rey -LONG <-10*1000*1000*180,-1 

605 UNIT_DESC: ; Descriptor used to convert unit # 
606 -LONG 5 

reds ADDRESS BUFFER+6 

609 CONT_DESC: 3 pangrsotes used to convert controller... 
610 D REC ze 8 : -from lowercase to uppercase 
ot) “ADDRESS eGree 

gig FILE: ; Fills im RMS_ERR_STRING 

ei3 -ASCID /file/ 

616 RECORD: ; Fills im RMS_ERR_STRING 

a4 -ASCID /record/ 

619 RMS_ERR_STRING: ;_Announces an RMS error 

620 ~ASCID /RMS !AS error in file !AD/ 


621 
6 § PROMPT : 
6 ASCII /Controller designation?: / 


° : PMTSIZ = .-PROMPT 

6 § NEEDED_PRIVS: rglist for SSETPRV 

6 -LONG <1aPRVSV _SHMEM> !<1aPRVSV" PRA L>!<1aPRVS$V_SYSGBL> 

6 3 -LONG 0 

é O GETSYI_ITMLST: ; Return info about our processor 


| 
sess sss SSS IS 


ue Tnarpoo 
v04-000 Read-Only 


: : 
1 


00000000 
4D 50 4D 00000270'010E0000" 0 


20 2A 2A 20 20 20 00000278'010E0000' 


Oooo 


MODOC RW WMMUMNSOCOVCVCOMOOCOCWWWD yYS}r KY FP OOO OWWWOVVOAOOUIIINUIUIS FE 


4D 4F 43 54 45 55 crtarcomeralielin | : § 0 
52 50 53 54 45 55 weeimitaicbin «3 


42 4D 54 45 55 000002A9'010E0000" 


4D 4F 43 54 45 55 ~papmeediadie } wg | § 
52 50 53 54 45 55 samaresadcdae yf 


0 
0 
0 
Q 
46 4 
45 54 24 53 59 53 emetic tty >a: § 
3A 54 5 
0 


54 41 44 2E 000002E7°010E0000" 


FFFFFFFF FF676980 


PDD 0 0 FF 8 FEN ETE ET FTN ETE OS FTN EFT TT at at 8 0) dd td “TF dd NLA NOD OO ODOT OOOO OOM OLSOMGs 


AAO 


PUT BS BB BB EB WINN 


FW OOONOA UE OOONOUE Win 


DOPAAAPAGAAAAAAOOAAAS 


SAAD AKO 
Vw mM 
OwonmDo NOW 


ao 
—_ 


oe ag DEVICE TEST FOR mares | 


WORD 
thes Mitttss “BUF +GS_L_ECOLEVEL’ 


RSION 
“ADDRESS tones “BUF +6S_Q _SYSGQVERSION 
WORD 


SADDRESS SCSNODE 
SADDRESS SCSNODE_LENGTH 
[LONG 0 


GETJPI_ITMLST: 


MPM_LITERAL: 
-ASCID = /MPM/ 


CS2: 


UETSPRGS: 


UETMB: 


64 
UETSPREF : 
6 A 
67 
SYSSTEST: 
9 A 


0 
DOTDAT: 


ALREADY _HERE : 
.ASCID 


-ASCID 
UETCOMEF : 


WORD 4 sP1s. TOQCNT 
-ADDRESS TQC 
.LONG 0, xe 


eASCID / 


UETCOMGS: 
-ASCID /UETCOMGS/ 


SCiD /UETSPRGS/ 


ASCID /UETCOMEF/ 


ASCID /.DAT/ 
ONE_SECOND: 
- LONG 


/UETMB/ 


SCID /UETSPREF/ 


SCID /SYSS$TEST:/ 


-10000000*1 ,-1 


She bas85:8e LOktPey. eae soe tRArooo.mar;1 2% 13 


; Read PRS$_SID for me 


What version of VMS is running? 


; What's our cluster node name? 


End of List of processor info items 
Return timer request info 


Literal sere needed to check that... 
-.-we're really given a shared memory 


No device type device class... 
«eto check ETSUP EV.DAT 


Constant part of interproc GS name 
Must be able to accomodate unit 


Constant part of single processor GS name 
Must be able to accomodate unit 


Constant part of mailbox names 
Must be able to accomodate unit and port 


Constant part of interproc common EF 


Must be able to accomodate unit 


Constant part of single processor EF 
Must be able to accomodate unit 


Logical name for CSYSTESTJ] on system disk 


File type of files used for disk sections 
l-second delta time 


Possible consistency error aoseane 


\Indications are that this processor was already connecte 
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essors we think went awa 


CPU differs from 
: aces $ 4 
CPU(s) on port(s) '#(3UB) didn't reply to some\- 


3; M 
-ASCID /CPU ECO Level differs trom’ enether CPU's for vhs. MPM!7B./ 
: we whose date-time we read wrong 


. vor heatect who think we went away 
CPU(s) on port(s) '#(3UB) wrote different info to the\- 


; My VMS differs from yours 
CPU(s) on port(s) '#(3UB) timed out before this\- 


-ASCID /Version of VMS differs from another CPU's for !AS 
; First Line when summari 


-ASCID \Summary of recoverable errors on !AS, MPM!ZB:\ 
interprocessor global section than what\- 


processor could send a reply mailbox.\ 


mailbox this processor sent.\ 
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UETMA7800 VAX/VMS UETP DEVICE TEST FOR MA78D 16-SEP-1984 00:27:39 VAX/VMS Macro V06- p : 
Fm000 Read/Write Data Breer bBe be s85.86 CORT P ES ecto lao mans1 29° 2h, 
ata 
OEX 


5 780 -SBTTL Read/Write D 
0000 f 1 -PSECT RWDATA,WRT,NOEXE,PAGE 
0000 TTCHAN: ue a 3; Channel associated with ctrl. term. 
786 FLAG: 3; Miscellaneous flag bits 
0000 094 f «WORD O 3; (See Equated Symbols for definitions) 
4 789 FAO_BUF: ; FAO output string d ipt 
0900 goc8 Boe 555 AOLBUFS ony text BUFFER. O nates cps ean 
0000014' . 19¢ ADDRESS BUFFER 
OOC 7935 BUFFER_PTR: ; Fake .ASCID buffer for misc. strings 
0000 00C8 bys 794 -WORD TEXT_BUFFER,O ; A word for length, a word for desc. 
00000014' SY at: ADDRESS BUFFER 
Bie 138 BUFFER: ; FAO output and other misc. buffer 
000000DC ae £8 -BLKB  TEXT_BUFFER 
ODC 800 DFVDSC: ; Device name descriptor 
0000 000A 33 01 -WORD MAX_DEV_DESIG,0 
000000FB' OEE 8 - ADDRESS DEV_NARE 
OE4 04 PROCESS_NAME: ; Process name 
38 37 41 4D soeonens riers OE4 05 eASCID /MA78/ 
00000008 OF 06 PROCESS_NAME_FREE = MAX_PROC_NAME~<.-8-PROCESS_NAME> 
000000FB ta ape -BLKB “~PROCESS_NAME_FREE 
OFB 809 DEV_NAME: ; Device name buffer 
0000010A OOFB 810 -BLKB MAX_DEV_DESIG+MAX_UNIT_DESIG 
0000000F 138 He NAME_LEN = 7-DEU_NAME 
\pA 8 DIB: ; Device Information Block 
0000 0074 10A 814 -WORD DIBSK_LENGTH,0 
00000112' HE a1? ee ADDRESS DIBBOF 
00000186 Ie H " ,BLKB DIBSK_LENGTH 
186 15 ERROR_COUNT: ; Cumulative error count at runtime 
00000000 18h 9 -LONG 0 
18A § STATUS: ; Status value on program exit 
00000000 13 ? -LONG 0 
1 E 5 QUAD_STATUS: ; 10 status block for misc sys. svcs. 
00000000 00000000 : E § -QUAD 0 
196 8 INADDRESS: ; SCRMPSC address storage 
00000000 00000000 138 4 astmentte 0,0 
00000000 00000000 19 1 .LONG 0,0 
YA ; UNIT_NUMBER : ; Current dev unit number 
0000 iy : -WORD 0 
1A 6 DEVNAM_LEN: ; Current device name Length 
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Read/Write Data -SEP-1984 UETPSY.SRC 
0000 Hy ih «WORD 0 
1AA RANDOM1 : i R 
AAAAAAAA TAA 40 «LONG “XAAAAAAAA peers were 2 
1AE 42 RANDOM2: 3 R a 
AT2EATZE O18 ‘8 .LONG *KA72EA72E ee oe 
1B 45 ITERATION: A] 
00000000 18 46 Moms 8 of times all tests were executed 
1B 48 PASS: :P 
00000000 9186 i .LONG 0 ee 
1BA 1 MSG_BLOCK: > Auxili ™ ‘ 
Q00001BE OBA 83g BLKB sere nih Lanegan ty 
900 185 ae EXIT_DESC: 0 ; Exit handler descriptor 
G000e1 : ie 36 - ADDRESS EXIT_HANDLER 
0000018A" ICA By “ADDRESS STATUS 
1CE 860 ARG_COUNT: A RROR 
00000000 ie i ¥ ae os rgument counter used by ERROR_EXIT 
é§ art flO QUAD 3 poterrgt at ise, gue pat 3s aligned 
8 3 e 
00000000 09000000 9108 bes "Quad 0 capa: eters coer 
ere 1E0 i SHM_INFO_ARGS: : ; Arg List for $CMKRNL SHM_INFO 
000001A6" 0164 3 -ADDRESS_UNIT_NUMBER 
000001F4 1E8 a .BLKL 3 
1F4 872 SCSNODE: : Th t i t 
000001FA ire 73 ina 6 e name of our node in a cluster 
1FA 875 SCSNODE_LENGTH: ; Length of lust d 
QOOOO1FE O1FA ud: “"BLKL 1 Wigs Te ves eects 3 cr mms 
1FE 87 
1FE 87 
: 7 
B 
F 
F 
F 
’ 


tt A BQOOOOOOOOCOCOCOCOOCCOOOSCSCOCCOSoO 


NEW_NODE: 3; Newl ired node add 
0000000 00000000 5 I et a ny pom serene 3 pte: 
? cones aie QUAD $ Roqged ed enter veces queue siuff es 
4 4 r tor cr n nterpr sor 
00001080 5 .BLKB GS_K_END sseboe: aria es chines: 
5 SYNCH_MBBUF : ; Buffer to create/receive MB during... 
000010CF ? § -BLKB MB_K_END 3 «.-Ssynchronous operations 
C 8 SYNCH_MBCHN: ; Channel to access random MB during... 
600) D1 C -BLK 1 3 »e-$Synchronous operations 
001003 4 ? -BLKW 1 : Filler to make $$ calls easier 
D 92 SYNCH_MBISB: ; IOSB for synchronous Q10's to MBs 
00001008 103 898 -BLKa 1 " 
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000010E3 
00001102 
0000110A 
00001129 
Soule 
00001135 
0000113D 
0000115¢ 
00001164 
00001168 


00000000 


1008 


— 
mmnoo 
MMNVWWwO@@Dw 


WODOLLLOOOCVIOCMMMIVTODTOOOr>r yp 


38 
95 SYNCH_MBPTR: 
-BLKQ 
SYNCH_MBNAM: 
-BLKB 
SYNCH_MBDAY : 
~BLKQ 


AST_MBBUF : 
BL 


3 
35 

? 

4 

4 

5 / 
§ AST_MBCHN: 
$8 Btku 
10 

1 

18 

14 

15 

19 

18 

19 


AST_MBISB: 
-BLKQ 


AST_MBPTR: 


AST_MBNAM: 


0 AST_MBDAY: 
1 -BLKQ 
3 INTERLOCK 
4 BL 
5 
6 
7 


by ty ttt Rr te te fe tr fr torte te teh OOo EDO e eee ee, 
~NO 


POPoOPORoPoTnonorn 


TQCNT: 
- LONG 


1541415 
, 
MB_K _END 
1 
1 
1541415 


1 


SAVED_R6: 
KL 71 


0 


r 
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String descriptor for... 

..-buffer to form logical name for... 
-»-MB during synchronous operations 
DAYTIM parameter if reply timer set 
Buffer to create/receive MB during... 
.+AST operations 

Channel to access random MB during... 
..-AST operations 

Filler to make SS calls easier 


IOSB for AST level Q10's to MBs 
String descriptor for... 

..-buffer to form logical name for... 
-+-MB during AST operations 

DAYTIM parameter if reply timer set 
Save R6 here during interlocking... 
-+.instructions test 


Count of remaining timer queue... 
---entries when doing EFN test fixup 
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L RMS-32 Data Structures 
LONG 
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rum 
ro 
ain) 
a- 
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SYSIN_FAB: ; Allocate FAB for SYSSINPUT 


SYSIN_RAB: ; Allocate RAB for SYSSINPUT 
SYSIN_FAB,=- 


ccVvvza "ew "ew - - 


INI_F AB: ; Allocate FAB for UETINIDEV 
<GET,PUT,UPD>,=- 
CR 


a ae 
SHR = <GET,PUT,UPI>,- 
= <UETINIDEV.DAT> 


INI_RAB: ; Allocate RAB for UETINIDEV 


ODOCCCCOCAW MMVI VOIMIWMIDVMIVMIAeSOOCOae 
DOOD ODODOONAAOMAOOOAAOOOOO 
WDODOOOOOOVOOOOOOOOOOOOOOOOOOO 


DATIVE BE EEE EE 


OOVMIVIAWIUIU 


&FOoooo 


DDB_RFA: ; RFA storage for INI_RAB 
-BLKB 6 


-ALIGN LONG 
sok ent ; Allocate FAB for UETSUPDEV 
FAC = GET,=- 
96 SHR = <UPI,GET>,- 
= CR,- 
968 FOP = 
= 


0000129A 


ooono 
r>re 


APODOAOAOAAOOAOOOOAAOAQOOAOOOO 
MEAN @ OOD NA UNE WN $9 OO NAME WN OS OONOAUS Win 
bad 
~” 
> 
@ 
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WOOOOOOOOOO 
POACACOUW 


UFO,- 
<UE f SUPDEV.DAT> 


; The dummy FABs and RABs defined below will be copied into their respec tye 
; areas in the node set up for a particular shared memory. A single MOVC is 
; used for each FAB/RAB set, so the sets must remain with the RAB immediately 
; following the FAB. 
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3 rar FAB used for interproc GS 
; FAB for interproc GS is im MA_K_COMFAB 
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COMGSRAB: ; Dummy RAB used for interproc GS 
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133¢ § SRAB- ; RAB for interproc GS is in MA_K_COMRAB 
1335¢ RAC = SEQ,- 
133¢ : RBF = COMGS_BUF,- 
155¢ ROP = B10,- 
! 4 RSZ = GS_K_END 
1 36 SPRGSF AB: 3 herr FAB used for single processor GS 
1 99 $F AB- ; FAB for single proc GS is MA_K_SPRFAB 
1 OBE ALQ = SPRGS_SIZE,- 
1 95 FAC = <BI10,PUT>,= 
1 38 FOP = SUP,- 
1 9 MRS = WRITE_SIZE,- 
: ; 38 RFM = FIX 
1300 1000 SPRGSRAB: ; Dummy RAB used for single processor GS 
1300 1001 SRAB- ; RAB for single proc GS is MA_K_SPRRAB 
1300 1 8 RAC = SEQ,- 
1300 1 ROP = B10,- 
1300 19 4 RSZ = WRITE_SIZE 
1414 1308 CHKGSFAB: ; Dummy FAB used to check single proc GS 
1414 100 $F AB- ; FAB to check single proc GS is MA_K_CHKFAB 
1414 1 38 ALQ = SPRGS_SIZE,- 
a 
= = 
1414 1011 MRS = WRITE_SIZE,- 
He pe et 
1464 191 CHKGSRAB: ; Dummy RAB used to check single pres GS 
120% 1046 ra oe ; RAB to check single proc GS is MA_K_CHKRAB 
i266 1017 ROP = BI0.- 
1464 1018 USZ = WRITE_SIZE 
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14A8 1 9 “SOT Tt rest and Device Initialization 
0000 ! ~-PSECT MA/80,EXE,NOWRT ,PAGE 
! DEFAULT DISPLACEMENT ,WORD 
1025 ;+ 
1 § : Start up the multiport memory test. This entails some overhead 
1 3 necessary to cope with both expected and unforseen conditions, figuring 
3 1 3 3 out just what devices are to be tested, making sure we can test the 
1 : indicated devices and setting up writeable space for each device to 
} 5 be tested. 
1 go 
0000 : -ENTRY UETMA7800, “M<> 3 Entry mask 
6D 1F17°CF DE 000 19 5 MOVAL SSERROR, (FP) ; Declare exception handler 
007 1 § SSETSFM_S ENBFLG = #1 ; Enable system service failure mode 
19 10 SSETEF_S EFN = #SPRGS_EFN ; (see note where SPRGS_EFN defined) 
8 i? 19 3 SDCLEXA_S DESBLK = EXIT_DESC ; Declare an exit handlér 
0024 1040 SOPEN FAB = SYSIN FAB,- ; Open SYSSINPUT 
0024 1041 ERR = RMS_ERROR 
0 196¢ SCONNECT RAB = SYSIN_RAB,=- ; Connect RAB to SYSSINPUT 
033 104 ERR = RMS ERROR 
02. €1 % 1044 BBC S*#DEVSV_TRM,- ; BR if SYSSINPUT is NOT a terminal 
1E 11AC'CF 0044 1045 SYSIN FAB+FABSL_DEV, 10$ 
004 1046 STRNLOG_S LOGNAM = CONTROLLER,- ; Get the name of our memory 
0048 104 RSLLEN = DEVNAM_LEN,- 
Bee 1968 RSLBUF = DEVDSC 
01 50 D1 0061 1049 CMPL RO,#SS$_NORMAL ; Was a controller specified? 
2— «13 tte 1050 ce BEQL § PROC_CONT_NAME ; BR if it was - go process it 
066 1926 $GET RAB = SYSIN_RAB,- ; Read SYSSINPUT... 
B068 105 ERR = RMS_ERROR 3 ..-for the controller name 
4 BO 0079 He: MOVW SUSIN RAB. RABSU_RSZ.~ ; Save the name Length 
16 61 fA 1928 BNEQ PROC_CONT_NAME ; BR if we got somethin 
O1BA'CF 14 OD \ 43 105 MOVL #SS$"BADPARAM, STATUS ; Save an exit status if not 
GOAS "te 44 BBs 1928 vr NO_CTRLNAME ; Prepare for message... 
00741132 ae 4 sp : $9 putt ? ETPS_TEXT!STSS$K_ERROR ; ... 
200C 1 494] ’ 66 BRW ERROR_EXIT ; «-.to tell of bad setup 
034 1 rr PROC_CONT _NAME: 
OODC*CF 1A8'CF 863 94 1065 MOVZWL DEVNAM_LEN,DEVDSC ; Set the device name Length 
ODC'CF OF 9B (1 96 PUSHAL DEVDSC 3; Make sure... 
ODC'CF ODF 9F 106 PUSHAL VDSC 3 «eethat the specified controller... 
* GF 2 FB AS 1 o8 CALL #2,G*STRSUPCASE 3 «+18 all uppercase for Later comaparison 
52 OODC'CF 1: AA 1 $ ADDL -DEVDSC ; Estimate the eventual... oe 
00E4' 2 Ao 4 1 y ADDW 2, PROCESS E 3 «.-process name Length (incl. *'_*) 
DE 107 MOVAL PROCESS NAME+8- ; Locate first available byte... 
° 1 6 +MAX_PROC_NAME- 3 eset process name handle... 
50 OOFO'CF B6 107 ~PROCESS_RAME_FREE,RO ; ...for device name 
C3 107% SUBL3 #PROCESS"NAME-FREE,~  ; WiLL the device name fit... 
51 C 1075 R1 F acote the remaining space? 
08 15 E 1076 BLEQ~=—s«108 : BR if it will 
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; Overwrite handle otherwise... 


Snir” _PROC_NAME ,PROCESS_NAME ; ...and define the maximum Length 


#*Aa/_/,(RO)+ : Separate handle from device name 

DEVDSC, DEV_NAME , (RO) ; concatenate handle with device name 
; Set the time stamp flag 

T 4 NAME : get the test name 

# ush the argument count 

#UETPS_BEGIND!STS$K succiss’s Set the message code 

#4,6°L 18 BSSIGN AL Print the startup mess 


: oot flag so we don't print it again 


ceelh faa. ; BR if SYSSINPUT is NOT a terminal 
crete DEV. 20$ 
TNPU ; Get the name of... 
#SS_SY vi "EFN,= i; «--device which may abort test 
ITMLST = INPOT TTACST, = 


10SB8 e 
QUAD_STAT 3; Avoid CTRL/C handler if any error 


SASSIGN_S DEDHAM = ; BUFFER. PTR,- : Set up for CTRL/C AST handler 
$alow_s CHAN = TTeHAN 


Enable CTRL/C AST's... 
= #10$ none silt CTRLCAST,= 


P1 = CCASTHAN 
yecess NAME : --.and tell the user... 
ayeres ABORTC!STSSK _succéss"} ; «show to abort gracefully... 
G* LYe$si P+ eer 
_5 LOGNAM = MODE ; Get the run mode 
RSLLEN = BUFFER PTR,- 
RSLBUF = FAO _BUF 
#_c a) 3. Bur FER ; Convert to upper case 


#*A70/ BUFFER 3 is sais . one shot? 
: no 
ee waiter pam. tale ; Set flags for one-shot mode 


— 


; Set the process name to UETMA7800_x 


SII SI a i it 


56 O1A2"CF O19E'CF C3 SUBL3 OUTADDRESS,OUTADDRESS+4,R6 ; Compute global section Length 


2 
TMA7800 VAX/VMS UETP DEVICE TEST FOR MA7BS 16-SEP-1984 AX/VMS Macro V04- Page 
Vbr008 Test and Device Isttiel lenetes -SEP-1984 t 82: gf: Hy LOE TPSY . eae UE YRA7BO0. MAR; 1 ° a | 
1 3 
1 ; From UETINIDEV.DAT and UETSUPDEV.DAT, get information which gives controller 
19 : and unit configurat on and lets us know if the setup to run this test was | 
i 3; done correctly. 
19 SOPEN FAB = INI_FAB,- ; Open file "UETINIDEV.DAT’ 
19 ERR = RMS-ERROR | 
19 SCONNECT RAB = INT_RAB,- ; Connect the RAB and FAB 
19 ERR = RMS-ERROR | 
1A SMGBLSC_S INADR = INADDRESS,- ; Connect to UETSUPDEV global section 
1A RETADR = OUTADDRESS,- 
1A GSDNAM = SUPDEV._GBLSEC,~ 
1A FLAGS = #SECSH_EXPREG 
00000978 8F 39 D1 OIC CMPL RO, #SS$_NOSUCHSEC ; Was the section already there? 
12 01D NEQ 308 : BR if it was... 
1D SOPEN FAB = SUP_FAB 3 «else open ‘UETSUPDEV.DAT" 
1D ERR = RMS"ERROR 
1E SCRMPSC_S CHAN = SUP FAB+FABSL_STV,- ; Create the global section 
1E INADR INABPRESS,= 
1E RETADR = OUTADDRESS,- 
1£ GSDNAM = SUPDEV_GBL LSEC,- 
if FLAGS = #SECSM_EXPREG! SECSM_GBL 
2 30$: 
? 
1 FIND_IT: 
1 $GET RAB = INI_RAB,- ; Get the first record 
1 ERR = RMS “ERROR 
O1CC'CF OF $ PUSHAL + . ; Make sure... 
O1CC'CF OF PUSHAL CONT DESC ; «--that the controller name... | 
OO'GF 02 FB CALLS #2,G™"STRSUPCASE 3 eects all uppercase letters 
0014'CF 44 BF ya CMPB #*A/D/ ,BUFFER :; Is this a DDB? 
OA 13 BEQL ; Go on if not 
0014"CF 45 BF 91 CMPB #*A/E/ BUFFER : Is this the end of the file? 
be 12 BNEQ FIND If : Continue on if not 
11 108 BRB 30$ ; Use common error message if it is 
OOFB'CF OO1A'CF eed 4 a pe vaan LEN. -BUFFER+6,DEV NAME Is re the right controller? | 
no 
1294°CF 1260°CF 06 2 MOVC3 #6,1R1_RAB+RABSW _RFA,DDB_. RFA ; Save the Record File Address 
0018'CF 54 BF 1 CMPB #°A/T/7BUFFER+4 : Can’ we ae this controller? 
$FAO_S Uap = DEAD_CTRLNAME,- ; ...and yell at user if we can't 
LEN = BUFFER_PTR,- 


OUTBUF = FAD. BUF. | 
Pt " 7 


= #DEVDSC 
O1B8A'CF 14 p00 MOVL #538, BADPARAR, STATUS ; Set return status 


PDD QPP AA Bs BB BB EB AAAI AAI AAI nnonononofnons | 
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OOOC'CF OF PUSHAL BUFF : wee 

OD 64 PUSHL bose 
00741132 BF +4 Fi ier ETPS_TEXT!STSSK_ERROR bones 
1€1 1 6? BRW ERROR_EXIT Se con°t test what ue can't test 


vung 
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0270'CF 6 e 
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Be 82:85:58 LUETHSy.SeeiuEYRA7B00.maR;1 2% (93), 


; check here (only once) to see if we're the correct test for the 


3; dev 


ce we were given to check. 


Note that this section differs substantially 


; from the standard UETP Bevife Test Tempiate because there is no way to get 


3; the ‘device characterist 
20S: 


CMPCS DEVDSC,DEV_NAME ,#0 
MPM_LITERAC,MPM_LI 


BNEQ 3 
MATCHC (CS2,CS2+8,R6,@0UTADDRESS ; 


BNEQ 30% 
WOVZBL TEST NAME 
CMPC3. R 

BEQL 406 


30$: 
PUSHAL DEVDSC 
PUSHAL PROCESS_NAME 
PUSHL #2 


U 

PUSHL #UETPS_DENOSU 

INSV #STSSK"ERROR,- 
#STS$V~SEVERITY,- 
#STS$S~SEVERITY. (SP) 


MOVL (SP), STATUS 
SHL #6 
BRwW ERROR_EXIT 


40$: 
SGETSYI¥_S EFN = #SS_SYNCH_EFN,- 
TMLST = GETSYI_ITMCST,- 
= QUAD_STATU 

#°A/ /,#6,SCSRODE 
SUBL3 RO,#6,SCSNODE_LENGTH 
FOUND_IT: 
$GET RAB = INI_RAB,- 
ERR = RMS"ERROR 


T 
LOCC 


PUSHAL CONT_DESC 


PUSHAL CONT~DESC 
CALLS #2,G™STRSUPCASE 
CHPB #*A/U/ BUFFER 


— 
So 
wn 


PUSHAL ILLEGAL_REC 
PUSH 


shoe ETPS_TEXT!STSS$K_ERROR 


PUSHL 

BRW  —- ERROR_EXIT 
20$: 

BRw ALL_SET 
30$: 


CMPB #*A/T/ ,BUFFER+4 


RS 
(R3), TEST_NAME+8 


L 
coe #*A/D/ BUFFER 
CMPB #*A/E/ BUFFER 
L 208 


cs’' of a multiport memory. 


i Mstch controller name vs. ‘MPM’ 


BR if another device was given 
Find our Line in UETSUPDEV.DAT 


BR if we're not there 
Get the test name Length 
Are we the right test? 
BR if we are 


Push device not supported message 
Parameters on the stack 
Push the argument count 


Set the severi*~ code... 


---and save it as the exit status 
Push the partial arg count... 
---and split this scene 


; Get our processor's ECO level... 
3 «the version of VMS and... 
-.-our SCS node name 


; Remove the blanks... 
; «+.that pad out the node name 


Get a record 


Make sure... 

eee that this line... 

ee-1S all wu percace letters 
Is this a UCB? 

BR if it is 

Is this a DDB? 


f yes 
Is this the end? 
BR if yes 


Then this is an error in the record 
Push the error message 

Push the signal name 

Push the temp arg count 

Finish for good 


Found DDB or END 
Is the unit testable? 


arse 


1 
00000000 GF 
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1 4C 1225 BNEQ FOUND_IT ; BR if not 

3 rk 1 § PUSHL ne se ; Flag to ignore blanks when converting | 

DD 1 PUSHL #2 ; Set byte size of results 

DF 1 8 PUSHAL UNIT_NUMBER ; Set address to receive word 

DF 1 PUSHAL UN ; Push string address . 

F A 1 9 CALLS #6 GeOTSSCVT TIL ; Convert ASCII unit # to decimal 

E 61 1 BLBC RO,10$ ; Don't allow bogus unit to pass 
64 1 § > BRB $ ; Sh. mems have no device chars, so... 
64 1 ; ...Skip usual SGETDEV/UETSUPDEV check 


1 


F 2 
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est and Device Initialization - 
Test and Device Initializati SEP=1984 
4 1235; 
4 1 § 3; We've round ava memory to test. Allocate space to store unit-specific 
64 1} + information and in ES the information. Interprocessor data structures 
4 1 $ 3; are unique between memories; single processor data structures are unique 
4 | 3 both between memories ane within a shared memory. See the FT_NO_INTERACT 
64 1240 ; definition for a discussion of the use of OTHER_CHARS. 
Be 15¢> bos | 
64 (1 rk SEXPREG_S PAGCNT = #PAGES,- ; Get a new node of demand zero memory 
64 1244 ADR = NEW_NODE 
OIDS'CF O1FE'DF 5D 5 1245 INSQTI @NEW NODE ,UNIT_LIST ; Put the new node in the unit List 
56 O1FE'CF 00 7c (1 g MOVL new RODE ,R6 ; Save a copy of its address 
08 AB «(0190 81 124 MOVE #1,0ETUNTSB_TYPE(R6) : Set the structure type 
064C 8F BO : 5 1248 MOVW #UETUNTSC_IRDSIZ+DEVDEP_SIZE,- 
09 A6 0 4 1249 UETUNTS$W_SIZE(R6) ; Set the structure size 
83 B 1250 SGETTIM_S TIMADR7= MA_Q DAYTIME(R6) ; Save time as interprocessor code 
O1EC C6 O1A6'CF 80 tee 1251 MOVW UNIT_NUMBER ,MA_@_UNIT(R6 3; Given memory unit number... 
OlES'CF O1AC C6 9E 039D 1 3g MOVAB MA_B-MYPORT(R6),SHM_INFO_ARGS+08 : ...find my port on it,... 
OIEC'CF O1F9 C6 GE O3A4 125 MOVAB MA_T_MEMNAM(R6),SHM_INFO-ARGS+12 :; ...the memory name... 
O1IFO'CF O1F1 C6 7E O3AB 1254 MOVAQ MA_Q MEMNAM(R6) ,SHM_INFO_ARGS+16 ; ...and the name Length... 
0382 1255 SCMKRNL_S ROOTIN = SHM_INFO;- 7 ... 
038 1 2$ ARGLST = SHM_INFO_ARGS 
oir? c6 9E Bach : rH MOVAB et Bl eapeey LE 3; Finish .ASCID pointer to memory name 
02 88 te 1259 BISB2 #UETONTSM_TESTABLE,- ; Assume for now that MPM is testable 
OB A6é O3CA 1260 UETUNTS$SB_FLAGS(R6) 
Bare 1261 ; Note that the unit number is treated as a word above, but as a byte 
. ie $6 :; forevermore. (The current hardware uses a 2-bit unit number.) 
50 ads 3 Bact ! o sty - ° wn T(R6) ,RO ; Get hex ASCII unit number... 
O1FO C6 «6550S 90 03d 1265 MOVB RO,MA_T_UNIT(R6) ; Put it away for safekeeping... 
59 50 90 0309 1266 MOVB RO,R9 3 «and for convenience 
Ose 1968 
O1F1 C6 28 03¢ 1569 MOVC3 MA_Q_MEMNAM(R6),- : intereroc GS name is memory-name... 
0210 C6 O1FS c6 ‘se O30 1270 ae BA T-MERNAN (RG) .MA_T_COMGSNAM(R6) 
“K/; $ oeeCOlon... 
63 0289'°CF 0281 "CF 8 O3E9 1 es MOVC3 UETCOMGS,UETCOMGS+8,(R3) :; ...section-name... 
8 59 0 Fl 127 MOVB RO, (R3)+ > ...and unit to make it unique 
63 O1AC C6 30 81 OQO3F& 1274 ADDB #°A/07,MA_B_MYPORT(R6), (R3) ; Append port in case FT_NO_INTERACT 
57 O281'CF O1F1 C6 81 OSFA 1275 ADDB3 MA_Q_MEMNAMTRG6) ,UETCOMGS,R7 : Figure total name Length... 
0208 C6 57 02 1 beo8 : 6 ADDB SOTHER CHARS 87. Seen 
ogi0 C6 ODE Bebe 1 4 MOVAL MA_T_COMGSNAM(R6) - : Finish .ASCID pointer 
0C C6 40C 127 MA~Q" COMGSNAM+4 (RO) 
i 
| 
| 


Sm 
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1FIC 28 04 1281 MOVC3 MA_Q_MEMNAM(R6),- Single proc GS name is memory-name... 
0287 C6 «O1F9 fe ‘i 1389 MAnT “HERNAN RG) MA_T _SPRGSNAM(RO) 4 Y 
A 419 1 OvB #°R/7/,(R3)+ i »+-COlon... 
63 0299'CF "ss 4i¢ 4 MOVES UETSPRGS .UETSPRGS#8, (R3)} ..section=name... 
; ee eUN ° 
63 OAC C6 0 1 Q427 1 § ADDB #°A/07,MA_B_MYPORT(R6),(R3) : g3.0nd port to make it unique 
57 0291" CE 1F1 cs 1 04 p 1 ADDB3 MA_Q_MEMNAMTRG) ,UETSPRGS,R7 : Figure total name Length... 
O27F (6 57 1 0435 1 8 ADDBS #37R7,MA_Q_SPRGSNAM(R6) ; 
387 C6 DE 0438 1 MOVAL MA_T_SPRGSRAM(R6) ,- : Finish .ASCID pointer 
3 66 43F 1290 MA ~SPRGSNAM+4 (R4) 
265 1592 
O1F1 C6 28 0442 1 38 MOVC3 0 _0_MEMNAM(R6), insergrec CEF name is memory-name... 
0237 C6 =—s«O1F9 c6 446 1294 A-T~MEMNAM(R6) , MA. T ~COMEFNAM(RG 
83 A 90 44C 1295 MOVB eeK/T /, (R3)+ : «e.colon... 
63 02B6'CF gAc EE é 64F 1 96 MOVC3 : TCOME ,UETCOMEF +8, (R3) ; noe Lustermienecc. 
8 9 0 0457 129 MOvVB + sand unit to make it uni que 
63 O1AC C6 30 81 45A 1298 ADDB BhIG7 MA_B_MYPORT(R6). (RS): ; Append port in case FT_NO_INTERACT 
57 O2AE CE OF C6 1 0460 1299 ADDB3 MA_Q REMNAM AMTRO) UETCOMEF ,R7 ; Figure total name Length... 
O22F C6 57 O2 81 0468 1300 ADDB3 #OTHER CHARS,R7, Bia 
O4GE 1301 mA ¥¥ Con BEFNAACR Rb) 
0237 C6 ODE 46 1 : MOVAL Atte ~COMEFNAM(R6) ,= : Finish .ASCID pointer 
0233 C6 0472 1 Q" COMEFNAM+4 (R6) 
0475 1304 
047 1305 
O1F1 C6 28 0475 1306 MOVC3 MA_Q_MEMNAM(R6),- ; Single proc CEF name is memory-name... 
O2AE C6 = O1F 9 c6 0479 1307 MA ZIGHEMNAM (ROD , ;MA_T _SPREFNAM(R6) 
83 A 90 O47F 1308 MOVB #°RK/ R3)+ : ...colon... 
63 O2C6'CF Qgne' Cr 28 0482 1309 MOVC3 Ue Tsener UETSPREF +8, (R3) ; ..-cluster-name... 
a 39 90 ABA 1310 MOVB 3 esoUnit... 
63 O1AC C6 630) B10 p 1311 ADDB aye MA_B MYPORT (RG) (R3) i gy.and port to make it unique 
57 O2BE'CF OF C6 «681 0493 1 1 ADDB3 MA_Q MEN KMTR4) ,UETSPREF ,R ; Figure Sokal gone length... 
0206 C6 «5570 —03s«iBs«é0K9BeCéd131 ADDB3 +e R7,M OnSPREFNAR(R 6) 
O2AE C6 «DE «O04A1 1314 MOVAL 1 SPREFA : Finish .ASCID pointer 
O2AA C6 0405 1315 HA “3 2 OREF NAMA eRe) 
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1F1 £6 28 0448 1317 MOVCS) MA_Q_MEMNAM( $65 Other CPU's MB name is memory-name... 
0260 C6 01F9 g 4AC 1 18 MA-T"MEMNAM(R6) ,MA_T _COMMBNAM(R (R6) 
A 4B2 131 MOVB #*°R/7/, (R3)+ ; «+eCOLON... 
63 O2A9'CF wt” 485 1320 MOVC3 UETMB,UETMB+8, (R3) ; .+-mailbox-name... 
9 4BD 1321 MOVB R (RS) and unit, to form skeleton of name 
57 O2A1'CR O1F1 cs 1 0400 1 g ADDB3 MA_Q_MEMNAM(R6) ,UETMB,R7 ; "#Houre total name length... 
0258 C6 7 1 Q46¢c8 1 ADDB #37R7,MA_Q COMMBNAM(R6) : ... (include extra gher for port) 
4CE 1324 ;MOVAL MA_T_COMABRAM(R6) ,- : Don't bother finishing skeleton 
4CE 1325 ; A~Q" COMMBNAM+4 (R6) 
ie 19 
1F1 C6 28 O4CE 1 § MOVC3 MA_Q_MEMNAM(R6), : my CPU's MB.name's memory-name... 
02DD Co =<O1F9 £6 De 1 MA~T_MEMNAM(R6) , MA. T_SPRMBNAM(R6) ‘ 
3 OA 0 4D8 1330 MOVB.  #*K/7/, (R3)+ ; ++-Colon... 
63 O2A9'°CF en's 8 408 1 mOVC’ UETMB ,UETHB+8, ,(R3) : + smailbox-name. ., 
; n eee 
AC C6 0 3 4E6 1 § ADDB #*A/07,MA_B proent tas? (R3) ; ...and port to make it unique 
57 63 Alt 0} 1F1 cé 1 O4EC 1 34 ADDB3 MA_Q MERNARTR R6) ,UETMB,R? ; Figure total name Length... 
D5 C6 «657)—O3s«B1CO4FK4 1335 ADDB aS R7,M a. SPRMGNAM (RE) 
Sepp C6 DE O4FA 1 $ MOVAL 1 SPRABRAM :‘tinish .ASCID pointer 
0209 C6 a501 f O-SPRMBNAMSE CRED 
501 1339 
57 0110 C6 of 501 1340 MOVA MA_K_COMFAB(R6) ,R7 ; Point to interprocessor GS FAB 
67 Poee ee 2 236 ! rf MOVC EOnceFAB Cn BLN.- ; Set up interproc GS skeleton FAB & RAB 
019¢ té gf DO 305 1 rk MOVL K_COMRAB+RABSL_FAB(R6) ; Set the FAB address in the RAB 
02D6'CF as BY oe a12 : rf: MOVC3 sete = ; Set up constant part of name... 
9'°CF 81°CF 51 134 MOVC UETCORGS. UETCOMGS+8 ‘ 
§ steehe Ste $ 524 1 23 mov SCSNODE LENGTH, eth ad indy : Allow for SYSSTEST in SYSS$COMMON 
83 59 9 >, ie rt MOVB (R3)F :; Append the unit number for uniqueness 
63 O2E7°CF 2pF "CF 8 O52F 134 MOVC DOtDAT DOTDAT+8, (R3) : Give the file a .DAT t type 
58 O281'CF 01 1 0537 1350 ADDB UETCOMGS ,R : Set the FNS field in the FAB... 
58 «(O1FA'CF «= 80s «0053p 1351 ADDB SCEMBDE LENGTH,R8 S ses 
58 6O2cE'CF 80 0542 1 3g ADDB ey eee reeT RB eke 
34 a7 O2DF'CF 58 81 0547 135 ADDB RB, DOTDAT FABSB_FNS(R7) ; ... 
14 Ag DE 0546 1354 MOVAL COMF AB(R6) 7- : Set the FNA field in the FAB 
2C A 0551 1355 PABSC FNACR7) 
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SEP-1984 00:27:39 VAX/VMS Macro v04-00 

misery 90:95:83 DCTP SY. SRE IUEYRA7BOO..MAR: 1 
MA_K_SPRFAB(R6) ,R7 ; Point to single processor GS FAB 
SU RBSE BLN RABSK_BLN,- ; Set up skeleton FAB and RAB 
R7,MA_K_SPRRAB+RABSL_FAB(R6) ; Have the RAB point to the FAB 
SYS$TEST SYSSTEST® -~  ¢ Set up constant part of name... 
MA_T SPRFAB(RG 
UETSPRGS ,UETSPRGS+8,(R3) : ... 
SCSNODE CENGTH, SCSNODE,(R3) : Allow for SYSSTEST in SYSSCOMMON 
RO, (R3)F ; Append the unit number for uniqueness 
DOTDAT ,DOTDAT+8, (R3) : Give the file a .DAT type 
#1, ,UETSPRGS RB : Set the FNS field in the FAB... 
SCENODE_LENGTH,R8 gina 
SYSSTEST, RS Bein 
RB,DOTDAT,FABSB_FNS(R7) ; ... 
MAT _SPRFAB(R6) >= : Set the FNA field in the FAB 
FABSC_FNA(R7) 
MA_K_SPRBUF (R6) ,= ; Set RBF field 
MA~K~SPRRAB+RABSL_RBF (R65 
MA_K_CHKFAB(R6) ,R7 ; Point to single processor GS check FAB 


#FABSK _BLN+RABSK_BLN,- ; Set up skeleton FAB and RAB 
CHKGSFAB, (R7) 

R7,MA_K_CHKRAB+RABSL_FAB(R6) ; Have the RAB point to the FAB 
SVSSTEST SYSSTEST+B,= ; Set up constant part of name... 


KFAB(R6) 
UETSPRGS ,UETSPRGS+8, (R3) 4 eee 
SCSNODE_LENGTH,SCSNODE,(R3) ; Allow for SYSS$TEST in SYSSCOMMON 
R9,(R ; Append the uni* number for uniqueness 
DOTDAT ,DOTDAT+8, (R3) 


3; Give the file a .DAT cyee 
#1, UETSPRGS : Set the FNS field in the FAB... 
SCSNODE_LENGTH,R8 he 
SYSSTES Reem 
R8B,DOTDAT,FABSB_FNS(R7) : ... 
A’T_CHKFAB(R6) -= : Set the FNA field in the FAB 
FABSC_FNA(R7) 


6 (R6) ,= - Set UBF field 
MA~K~CHKRAB+RABSL _UBF (R65 


FOUND_IT Do the next UCB 
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Test and Device Initialization SEP-19 UETPSY.SRCJUE 7) 
° C 1399 ;+ 
C ; Arrive here when we have the device configuration. Set up those things 
60C 3 which need to be done before actual testing begins aA creation). 
60C 3 In normal or loop forever mode, set a timer far enough in the future 
60C 3 such that we can do a reasonable set of tests before the timer expires, 
? C 3 but if our dev ce gets hung, the program won't waste too much time 
é : 3 before noticing. Let one-shot mode be a special case. 
¢ ° 
60C ALL_SET: 
O1DS'CF D5 06 TSTL UNIT_LIST ; Anything to test? 
16 12 ? BNEQ 0$ ; BR if yes 
OIOA'CF OF PUSHAL NOUNIT_SELECTED ; Else set up the error message... 
1 DD 06 PUSHL 3 «.-argument count... 
00741132 8F DD 06 PUSHL #UETPS_TEXT!STSSK_ERROR ; ...signal name... 
DD 06 PUSHL i «+-8Nd parameter count 
OIBA'CF 14 0 06 OVL #SS$_BADPARAM, STATUS ; Set return status 
1A78 1 ? 108 BRW ERROR_EXIT 3 «.-and give up, complaining 


0002"CF 04 As BISW2 #SAFE_TO_UPDM,FLAG ; OK safe to update VETINIDEV.DAT now 
SSETPRV_S ENBFLG'= #1 ; Set up needed privileges 


PRVADR = NEEDED_PRIVS * 


III AIROPO ORONO 


There are some fields in the interprocessor global section which will be the 
same for each shared memory, whatever port we're connected to. Set those 


up first. 
0289'CF poate 28 MOVC3 UETCOMGS ,UETCOMGS+8,- ; Set up those things in the... 
0209" CF COMGS_BUF+GS_T_SECT_NAME+1 ; (section name) 
0281'CF 01 81 ADDB3 = #1,UETCOMGS,= 3 .--interproc GS buffer which are... 
0208'CF COMGS_BUF+GS T_SECT_NAME ; (section name Length) 
30390004 8F D0 MOVL #CONSTS CHECR,= ; «sethe same for all memories 
0218'CF COMGS_BOF+GS_L_VERSION sion consistency) 


>. Wer 
NOTE: When this test was written, only 11/780 CPUs had shared memory. Since 
we are here extracting the ECO level from a processor dependent register, the 


DOOOOVOE OVS OUVUIMMmMmMmmMmMmmo Oo McMWom 


test must be modified gpeule other CPUs eventually run it. It has already 
been modified for 11/785 CPUs. 
0224'cF O08 OF EF #15,#8,COMGS_BUF+GS _L_ECOLEVEL,- ; Get 780 processor ECO level 
0224'CF COMGS_BUF+GS"L_ECOLEVEL 
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For each memory that we're to test, fill in the fields in the interprocessor 
lobal section that are memory and pers specific. Create the data structures 
hat will nurs be present, regardless of the presence of other cooperating 

processors on that memory. 


ADDLS #UNIT_LIST,UNIT_LIST,R6 ; R6 points to node for current memory 


MOVZBL COMGS BUF+GS_T_SECT_NAME,R7 ; Tack on the Last byte... 

MOVB MA_T_ONIT(RO),= i «.-to the global section name 
CORMGS BUF +GS_f_SECT_NAME(R7) 

MOVZBL MA_B_AYPORT(R6),- 3 Indicate which processor created... 
COAGS_BUF+GS_L_OWNER : ...this section in this memory 

ASHL  COMGS“BUF+GS"L-OWNER,#1,- ; Set the bit which says that... 
COMGS"BUF+GS"L~AVAILABLE : ...we're a coo erating processor 

EMUL #COMGS_PVT_AREA,- ; Point to start of my private area... 
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vides Test and Device Initialization “SEP=-1 1384 82: gf: 3 UETPSY.S COO VOR 7 800. MAR; 1 “ me as| 
28'CF 14 COMGS BUF+GS_L_OWN 
57 200 5: F : : ie aaa #COM S_BuF+GS_R hi AREAS, R7 
50 0000 i * F 6 99 14 § MOVL #CONGS -PVT_CODE/4,R0 : ~--and fill it... 
A 5 A 1399 BSBW ; «+eWith random trash 
gia, C6 D AS 14 MOVQ Q_DAYTIME(R6) ; Set the special message, used as... 
178 ¢ Ar 1466 COGS. PVT “CODE CR?) ; eee code to identify my processor 
AA 1402 SCREATE FAB = MA_K COMFAB(R6),- ; Set up file for interprocessor GS 
AA 1465 = RMS_ERROR 
689 1298 SCONNECT RAB = MAR eee, 
128 RR = RMS ERROR 
rt! 1? 3 SWRITE RAB = R_COMRAB(R6),- 
= 
D 1290 SCLOSE FAB = MA_R_COMFAB(R6),- 
607 1471 R= ap) ER RROR 
00020000 8F CB 06E6 1906 BISL2 #FABSM_U Turn on the UFO bit... 
0114 C6 O6EC 1473 MAK COMFAS*FABSL_ FOP(R6S ;...so RMS sets us up OK later 
peer 1207 SCREATE FAB = m K aed ; Set up file for single processor GS 
= 
OerE 1477 SCONNECT RAB = R ae 
= 
070D 1238 SWRITE RAB = MA_R_SPRRAB(R6),- 
070D 1480 RR = RMS E 
pric 1481 SCLOSE FAB = = MSvERROR - 
00020000 8F C8 $7 B 1283 BISL2 uF ABSH UFO urn on the UFO bit... 
0400 C6 Hy tf) K_ SPRFAB+F ABSL _Fop(R6s | 3 «--SO RMS sets us up OK Later 
0734 1o58 SCRERBX_S ¢ CHAN = MA_W_ hk te - ; Create my mailbox 
0734 14 LOGNAM = MA_ Q” SPRMBNAM(R6) 
0748 1488 $Q10_S CHAN = MAW “SPRMBCHN(R6), - ; Be ready to read if. 
ores 1489 FUNC = 7108 $"REA sveLs..= ; ++-Someone writes... 
748 1490 I0SB- = AST_MBIS 3 «e.tO my mailbox 
0748 1491 ASTADR = RCV wtip - 
74B 149 ASTPRM = R6,- 
Ort 1298 P1 = AST_MBBUF ,- 
ie ey: P2 = #*hB~ K_END 
56 66 CO He ieee ADDL2 (R6),R6 : Point to node for next memory 
56 000001D8'8F D1 775 +149 CMPL #UNIF_LIST.RG ; Back at the start of the queue? 
03 13 O77C 1228 BEQL $ ; BR if we are - we're finished 
FEEB ‘31 re \% 8 308: BRW ; More to go so loop 
13 0002"°CF 04 €0 78 1 1 BBS #ONE _SHOTV,FLAG,RESTART i In enenshot Sede Store Belen now... 
787 1 é TIME_IT: aa 
787 1504 SSETIMR_S DAYTIM = THREEMIN,- ; Set timer AST to 3 minutes 
787 1505 ASTADR = TIME_OUT,- 
787 1506 EFN = #EFNZ 
| 
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Start the normal test by mapping to the interprocessor global section 
and announcing our presence. | 


BBC #ONE prory. FLAG,10$ ; Skip all interprocessor stuff... 
BRW ONEPROC 3 .eeif we are in one-shot mode 


ADDL3 #UNIT_LIST.UNIT_LIST.R6 ; R6 points to node for current memory 


Map to the interprocessor global section for this memory. If it turns out we 
also create it, we're ready to handle messages from other processors which 
may subsequently map to it. 


SOPEN ERR = MA_K_COMFAB(R6),- ; Reopen its interprocessor GS file 


RMS_ERROR 
nn COMGSIAD(R6) ; Say that file maps to PO s space 

SCRMPSC 4 NADA” = MA_Q_COMGSIAD(R6),- ; Map that file to a G 

ETADR = MA_Q COMGSRAD(R6),- 

FLAGS = #SECSH_GBL !SECSM EXPREG! SECSM_WRT! SECSM_PERM, ~ 

PAGCNT = #<GS_K-END+511>/512,- 

GSDNAM = MA_Q”COMGSNAM(R6),- 

CHAN = MA_K COMF AB+F ABSL_STV(R6) 
MOVL MA_Q_COMGSRAB (R6) ,R7 ; Save GS's starting address in our PO 
cnr ¢SS5_ CREATED RO 3 Did we create-and-map or just map? 
BRW 90$ ; BR if we created 


So 
w 


We've mapped to an existing section. Check that we don't t already appear in 
the mask of eprerating processors. fone jetency check that we've got a good 
section. Check for matching ECO levels of our CPU versus the CPU which 
Srestes the global section. Set up our private area and announce us to the 
wor 


BBCCI MA_B_MYPORT(R6) ; BR if we're not already here 
GS"L TAVAILABLE(A7) 40$ 
MOVAL AL RE Roy E,RO 
408 BSBW DO_FAO_ "SiG ENA ; Warn of possible consistency problems 
j CMPC3 UETCOMGS UEMAC eT eR? aig Did we find the correct... 
bool T_SECT_NAME+1 (R75 : ga gyonal section name? 
CMPB ss MA_T_UNIT(R6), (R3) More checking of GS name 
BNEQ a)" . BR if not as expected 
CMPL #CONSIS_ CHECK, GS_L -vERSION( r version and max ports match? 
0s BEQL hey do - we're consistent 
"  MOVAL INCONSISTENCY, RO 
0s BSBW DO_FAO_EXIT ; We got the wrong GS - die 


CMPL COMGS BUF+GS L L ECOLEVEL,- ; Do we have the same CPU. 
GS_L_ECOLEVEC(R?) + ...aS the CPU which created GS? 
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ort Memory ss "S-$Eb=1984 O4:95:56 EOE TPSY.sReauEYRA7B00.maR;1 29° (78) v6 


SEP=1984 UETPSY.SRCJUE V 
BEQL ; BR if we do 
MOVAL BAD_ECO,RO 
BSBW DO_FAC_SIGNAL ; Yell if we don't 
CMPCS #8,COMGS BUF+GS_Q SYSGQVERSION,-=- 
Q_SYSGQVERSIONTR7) =; Do we match on VAX/VMS, too? 
BEQL ; BR if we do 
MOVAL WRONG _VERSION,RO 
BSBW  -DO_FAO_EXIT ; Die if we don't 
MOVAL GS_K_PVT_AREAS(R7),R8 
EMUL #COmGs POT Mathes ; Point to start of my private area... 
ae MYPORT(R6) -RB,RB 
MOVL #COMGS_PVT CODE/4,R0 g o0c8hO FILL Tice 
BSBW RA 3 «eewith random trash 
MOva MA_Q_DAYTIME(R6),- ; Set the special message, used as... 
COMGS PVT CODE(RS) i «+a code to identify my processor 
BBSSI MA_B_AYPORT(R6),- ; Let other processors know of us! 
GS"L-AVAILABLE (R7) ,90$ 
ADDL2 (R6),R6 ; Point to node for next memory 
CMPL #UNIT_LIST,R6 ; Back at the start of the queue? 
BEQL 100$ ; BR if we are - we're finished 
BRW 20$ ; More to go so loop 
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: arr with the single prosesser global section. Create ang map to a 

; global section in each shared memory which is used exclusively by our 
3 rocessor. gy He | the contents and update each section back to disk. 
3 t AST level, confirm that the updates succeeded and delete each 

3 section and its address space. 


56 O1DB'CF 000001D8'8F C1 ADDL3 M#UNIT_LIST,UNIT_LIST,R6 ; R6 points to node for current memory 


*>>>r>rrrrrr>,r 


10$: 
; Map to the single processor global section in this memory. 

; but not create it, give a warning. To prevent possible conf 
> previous passes through this code, make sure that the SUPDSE 
; flag is set to allow us to proceed. 


If we only map, 
licts wit 
C-in-progress 


Oooo 
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SLES 


SAALON OP LNOFDEOOO 3 3 SM ONOD SS SS OOF 


SWAITFR_ 
$oP 


SE 
EN 4 = mA K gone na (RG) «= : Reopen single processor GS file 
= 
0634 C6 01 00 VL #1,MA_Q_SPRGSIAD(R6) ; Say that file maps to PO space 
SCRMPSC_S [NADR™= MA_Q_SPRGSIAD(R6),- ; Map that file to a G 
88 RETADR = MA_Q_SPRGSRAD(R6) ,- 
85 FLAGS = #SECSM_GBL ! SECSM_EXPREG!SECSM_WRT! SECSM_PERM,- 
= PAGCNT = #SPRGS_ SIZE,- 
r} GSDNAM = MA_Q_SPRGSNAM(R6) ,- 
=> CHAN = MA_K_ SPRFAB+FABSL_STV(R6) 
57 063C C6 00 D MOVL MA_Q_SPRGSRAD(R6) ,R7 ; Save GS's starting address in our PO 
50 00000619 8F 01 CMPL #SS$"CREATED,RO 3 Did we create-and-map or just map? 
08 13 BEQL 2 ; BR if we created 
50 03B82'CF BF MOVAL OLD_ONEPROC,RO 
0995 BSB 


can be written to correctly and then updated correctly to disk. Only issue 
the SUPDSEC here; the actual verification will take place at AST level. That 
will allow us to test the next memory or otherwise proceed with the test. 


51. 064C C6 ~_ MA_K_SPRBUF (R6) ,R1 Fill a buffer... 


ak kk kt at tat at at a at = = ts = = = 2 2d — 9 bs ©) bs 2s ts 4) 4 ss as 1 2 ss ss 2 ss ss ss 


6 
609 
610 
e12 
$18 
614 
aE 
el 
619 
620 
2 1 
? 208 ‘ DO_FAO_SIGNAL ; We've a rusty old single proc GS - warn 
625 
? § ; Use a bufferful of pseudo-random data as a means to verify that the section 
628 
629 
630 
° 1 
633 
634 
° 5 
i 
ai 
066 
64 
44 
23 
648 
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D 5 
50 00000800 OVL #SPRGS_SIZE*128,R0 i «+-0f longwords... 
93D BSBW RANDOM_F ILL 3 «eewith random trash 
000 8F MOVC3 #SPRGS SIZE*512,- ; Move that trash to the... 
67 gat 6 MA_K SPROUE (862 - (R7) 3; .+-Single processor global section 
00 8F 29 CMPC3) «#SPRGS_SIZE*512,- ; Make sure that the pages... 
67 64C £6 MA K_SPRBUF (R6) , (R7) 3 Te th et updated 
4 13 BEQL os ; BR if all data transferred 
02 BA BICB2 #UETUNTSM TEST estes ; The MPM is not testable... 
0B A UETUNT$B_FLAGS(R6) : ...(as far as one-shot mode thinks) 
7E 6 9A MOVZBL (R3),-(SP) 3; Not written OK. Save the bad byte... 
43 g 9A rte (R1),-(SP) 3 eee the correspongin good byte... 
. Se yo SUBL R7,R3,-(SP) 3: eeewhere in the buffer it was... 
O1F1 C6 ODF PUSHAL MA_Q_MEMNAM(R6) 3 «eethe memory name... 
OD PUSHL #4 ; ...the argument count... 
0074801A 8F DD PUSHL #UETPS DATADEVERR! STS$K_ERROR 3 ..-and the error type 
ant be DF PUSHAL BAD ports ; Tell what the error was from 
000F 00: 8F DD PUSHL a*xFoO 


= 


3 
wesc YORU MREC RPE gear foe ar” CHESS QPSUSEE BCP SHEARER man POY A 


00741132 8F dD a38 1668 PUSHL #UETPS_TEXT!STSSK_ERROR 
186'CF 06 , f 1650 INCL RROR_COUNT ; Keep a running count... 
186'CF DD 4 12 1 PUSHL RROR_ COUNT ; «..0f the errors we've gotten 
4'CF DF 0944 1 § PUSHAL 3 3 NAME 
00) F DD 0948 16 PUSHL #*X 
074 F DD Q946E 1654 PUSHL M#UETPS_ERBOXPROC!STSSK_ERROR ; Have the error stand out 
00000000 ' GF D «FB $36 1 5 308 CALLS #135,G*CIBSSIGNAL 
958 16 7 SUPDSEC_S INADR = MA_Q_SPRGSRAD(R6),- ; Update the section to disk 
958 1938 UPDFLG = #1,- 
958 165 EFN = #SPRGS_EFN,- ; (see note where SPRGS_EFN defined) 
958 1660 10SB_ = MA_Q_SPRGSISB(R6),- 
958 1661 ASTADR = SPRGS_AST,- 
958 1996 ASTPRM = 
56 66 CO 0978 166 ADDL2 (R6),R6 ; Point to node for next memory 
56 000001D8°8F Di 09 1664 CMPL #UNIT_LIST.R6 ; Back at the start of the queue? 
13 Bae 1665 BEQL 40$ ; BR if we are - we're finished 
FFOD 31 0984 1666 BRW 10$ ; More to go so loop 
0987 1667 40$: 
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AX/VMS UETP DEVICE TEST FOR MATBO 16=SEP=1 0: 9 YVAX/ ws acro V ; : y 
vat test the Multiport Memory ae 9 8? ¢g: HA UETPSY.S Bae toe YRA7BOO.MAR: 1 (20 
g 196 ONEPROC _ MB: 
3 187 : Send mail to my own processor. Synchronize to ensure that it gets 
4 1676 3 received properly. 
987 18h : 
56 O7D8'CF O00001D8'SF C1 > , 1902 108: ADDL3 #UNIT_LIST,UNIT_LIST,R6 ; R6 points reais = current memory 
; ; t Ling in message... 
3 peac © RR B88. 1877 nOveee Rt BR INCK RBBUF SAB Ree B_SENDER ; siege Be "s Sort amber ec. 
19p9 Ce ccs 398 1898 MOVB R10,SYNCH_ MBBUFoMB ~B_RECEIVER : -+-receiver’s port number... 
= Ste te 9 3h 1 9 MOVB MA_W_UNITTRO) hy 3 «+-unit no. of shared memory... 
he ‘Sa BO Sa} ie § MOVW anc came ey i «.-reason for the message 
se oar i 4 SCREMBX i CHAR Re SYNCHRBCIN = Establish another Link to my MB 
3 i 3 MOVL ane one E TIMEOUT SYNCH. MBDAY ; SSETIMR parameters - DAYTIM... 
1102°CF FECED300 8F DO O9C 1 § a Sen oe hes 
54 + a 1 OA bé 951 1688 INSV ong G_ME2 Bare rie, 6. R4 ; «+ -REQIDT... 
= Bec te 98 bes 1850 nove RA aUAIT (R6), Re Sicha 
sp ec Mane YE oy bore 1899 SSETIMR_S BAYT = SYNCH_MBDAY,- 7 A te will let ” know... 
* 2 ste rocessor... 
0960 1898 ASTADR = Re  Secaoenee Ast. i ere reply to the following 
SYN MBCHN ; Talk to _myse 
3f 1898 tbr. FUNC = SYNCH ORITEVELK! LoSM_Now 
O9F 169 10SB = SYNCA_MBISB, 
$ P1 = SYNCH “MBBUF . - 
SoFs 1698 +. ND 
54 DD OAI6 1699 PUSHL R4 : bodies ‘akelas 
° A t #1, Q1OMB_SYNCH_CHECK ; Check the completio 
vm Dies? Che his AID Hi SDASSGN 5S CHAN ="SYNCH_MBCHN ; We no longer need the MB 
: h time to receive the mail, we'll hibernate 
OA 3 1708 : Ret Etna « nthe Bwen BS. correctly, the mailbox receipt routine 
OA29 1705 : wilt change the MB_W WHY field to say so. If the buffer is unchanged, 
* , 1709 S assume the transfer failed and we timed out. | 
, ; Wait for mailbox AST or time out 
1 ok 3 1509 trou ons ME 2MEDONE , - ; Message acknowledged? | 
° : Se 0 174 YNCA_MBBUF +MB_W_WHY 
oe 68 13 A 1711 BEQL os ; BR if it was | 
50 0531'CF ar MOVAL ME2ME FAILED. RO eae O0 ik eae | 
0867 RF : ay 30s: BSBW DO_FAO_EXIT 3 e | 
? ; Point to node for next memory 
56 co F 1715 ADDL2 : wy Be Be yg By | 
- a + vi 1549 ah 4 ANI fALIST.R6 : hn, are ca re finished 
FFG $3 ACB 15} BR 10$ ; More to go so loop 
ASE 5 40$: 
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0 V04- 
Test the Multiport Memory UETPSY. SREIUEYRA7BOO. MAR: 1 
ONEPROC EF : 


4 
(21) 


3 Ptey with the single processor common event flag cluster. Associate 
3 with a cluster in each shared memory and test to see that all bits in 
; each can be set and cleared when used exclusively by our processor. 

: Disassociate from the clusters. 


56 O1DB'CF 000001D8'8F ADDL3 #UNIT_LIST,UNIT_LIST,R6 ; R6 points to node for current memory 


SASCEFC_S EFN = #SPREF_EFN,= ; Associate with a CEF cluster 
NAME = MA_Q_SPREFNAM(ROS 


: Set and clear each flag in sequence. 


10$: 


steetpatehamaiaptacadnaamaanenannnnminingnippiniaiiaitiediaiipianimnmimatal 


57 00000040 8F MOVL ah caged ; Initialize EF position counter 
58 01 208 MOVL #1,R ; Initialize EF mask 
SSETEF_ S EFN = R7? ; Set a common event flag 
SREADEF_S EFN = R7,= ; Read back the cluster 
TATE = MA_L_SPREFSTATE(R6) 
OOAA BSBW 100$ ; Check that exactly our flags are set 
SCLREF_S EFN = R7 ; Clear what we just set 
SREADEF_S EFN = R7,= ; Read back the cluster 
STATE = MA_L_SPREFSTATE(R6) 
009D BSBW 200$ ; Check that our fag is clear 
57 INCL R7 ; Point to the next flag in the cluster 
58 58 01 ASHL #1 ,R8,R8 ; 
C6 BNEQ 20$ ; BR if there are more bits to test 


> Set each flag, one at a time, until the entire cluster is set. 


57 00000040 8F : MOVL —- #SPXEF _EFN,R? 
58 RB 


Initialize EF position counter 


Mask the next flag in the cluster 


S88 
SND PPP DAD DD DAD TTT BB BS BB BB BB AAAI AAI NIAAA AIP INPINND 
NOMA WN $9 OD NA NE WIIN OOD NAME WIN SO ONO NEW 0 OD NOUN EU (OOOO Ut 


ee te 4 2 — a a 2b a ts ad a a ts bt a a td tt tt tt 


CLRL ; Initialize total EF mask 
59 601 30s MOVL #1,R9 : Initialize individual EF mask 
58 59 BISL2 R9,R8 ; Mask next flag to set in the cluster 
SSETEF_S EFN = R? ; Set a common event flag 
SREADEF_S EFN = R7,~ ; Read back the cluster 
TATE = MA_L_SPREFSTATE(R6) 
0061 BSBW 100$ ; Check that exactly our {logs are set 
57 NCL ; Point to the next flag in the cluster 
59 59 91 ASHL #1,R9O,RY ; Mask the next flag in the cluster 
dC NEQ 30$ ; BR if there are more bits to test 
; Clear each flag, one at a time, until the entire cluster is clear. 
57 eoconee F MOVL 7 F_EFN,R7 z Initialize EF position counter 
é 0 MCOML #0,R : Initialize total EF mas 
9 1 ons MOVL #i,R : Initialize individual EF mask 
58 59 BICL2 R9,R8 ; Mask all flags set in the cluster 
SCLREF_S EFN = R? : Clear ac 
SREADEF_S EFN = R7,- ; Read back the cluster 
TATE = MA_L_SFREFSTATE (RO) 
0039 BSB 19 $ ; Check that exactly our flags are clear 
5 INCL R ; Point to the next flag in the cluster 


ommon event flag 
i 
| 
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9 ee: 1 ASHL #1 ,R9,R9 ; Mask the next flag in the cluster 
ane et 1 i 1748 BNEQ 40$ ; BR if there are aire bits to test | 
. « tt \g if ; eck “Tels” ; #SPREF_EFN : See nape “—e re our CEF cluster | 
L ; Point to node for next memory 
56 O000001D8'8F 01 g 17 : CMPL #UNIT_LIST.RG ; Back at the start of the queue? | 
03 13 1784 BEQL 50$ ; BR if we are - we're finished 
FF2A 31 : if ; S08 BRW 10$ ; More to go so loop | 
‘CR 04 17 Cae #ONE_SHOTV,FLAG,60$ ; BR if in one-shot mode 
ee 0080 5 OB ‘ 1788 608 BRW INTERPROC_6S ; Skip over local subroutines to next test 
0656 «(351 88 7 1550 BRW SUC_EXIT ; Only test single proc stuff if one-shot 
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v54~000 


54 558 
SA 58 O02CD £9 


54 

5A 58 §=O2CD C6 
O2cD C6 = 58 

01 

02 

A6 

55 O1F1 C6 
000C * CF 
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00741132 8F 
00000000'GF 03 
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PEPER 


oO 
POV DB 8 FF PF OOP AAA A AOA A UMNM OO AAAOAAOUNG FP PP PY 
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SESSESSSSSSSSSSSSSSSSESSESSSSS 


SSEb=198e 00:85:56 UOETPsy. SAC IUEYRA7BOO.MAR: 1 


: 4 poh at aga to check that R8 matches exactly the common event flags in our 
cluster. 


~~ 
0OO00no 


MEW OOO NAUE WIN 0 OD VA UNE WIN OOO NONE WO OONOAUE WP 


—tee Oe e 
om 
oO 


MOVL RB,R4 ; Set _up if error message needed 
XORL3 MA L _SPREF STATE (R6) ,RB-RIO ; Exact match? 
BNEG 300 ; BR if not - issue error message 


; Subroutine to check that the flags masked in R8 are clear. 
2008: 


CLRL R4 ; Set up if error message needed... 
XORL3 MA_L_SPREFSTATE(R6),R8.RI0 ; ... 

BITL §RB°MA_L_SPREFSTATE(R6) ; Is requested bit clear? 

eae 306$ ; BR if not - issue error message 


; Subroutine which, given expect 
; MA_L_SPREFSTATE(R6) and the di 
3 error message. 


¢ flags to be set in R4, actual flags set in 


e 
fference between the two in R10, prints an 


$008: 
BICB2 #UETUNTSM_TESTABLE,- ; The MPM is not testable... 
UETUNTSB_FLAGS(R6) 3; ...(as far as one-shot mode thinks) 
MOVAL MA_Q_MEMRAM(R6) RS ; Form $FAO parameter 
SFAO_S CTRSTR = BAD_CEF,- ; Form an error message 
OUTLEN = BUFFER_PTR,- 
OUTBUF = FAO_BUF,- 
P1 = R5,- 
P = MA_W_UNIT(R6),- 
P = R4,- 
P4 = MA_L_SPREFSTATE(R6) ,- 
PS = R1 
PUSHAL BUFFER_PTR 
PUSHL #1 


PUSHL  #UETPS_TEXT!STSSK_ERROR 
CALLS #3,G*LTBSSIGNAL 


a a a st 8 8 4 88 2 3 


0.00 09 C9 00 09 CD OD 0D CD OD CD Cd CP CD CD CD CD CD CD CD CD CD 0D CD 09 CD 0D CD CD 09 CD CD09 OD09 III 
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B94 i INTERPROC_GS: | 
| 


Page 


| 
| 


B94 
B94 
B94 
B94 
B94 
B94 
B94 
B94 


Start the interprocessor goamun ications part of the shared memory test. 
Mail to each processor which appears in the ‘available’ mask in the 
interprocessor global section, a message which includes the date-time 
geseeere at the end of ener section's er rvece area in the 
nterprocessor global section. We will expect a reply to our mailbox, 
to be received at AST level. Set a timer to catch the case where 
another processor doesn't reply. 


; NOTE WELL! Within the following loop, registers R6 through R10 are set and 
; assumed to_remain unchanged. 
ADDLS #UNIT_LIST,UNIT_LIST,R6 ; R6 points to node for current memory 


MOVL MA_Q_COMGSRAD(R6) ,R7 : R7 will poins into the interproc GS 
CLRL R8 ; RB is STRTPOS for FFS operations 
MOVL #PROCESSOR_MAX,R9 ; R9 is SIZE for FFS operations 


56 O1D8'CF O00001D8'SF C1 
57 062C £6 dO 
59 04 DO OBA 


— 
om 
bed 


ra 
r 
> OODD000O 
LTT & & & & 
—_ 
00 G0 G0 G0 G0 G0 G0. G0. G0 G0 G2. GD G2 G9 Go GD GDGDGDGD 


PUP BB EE EE 


I 
: 
i 
1823 
1844 
! 5 
ii 
1Be9 
1850 
i 
1 
AB 1888 
SA 24 a7 59 38 EA Spee 1 § FFS R8.R9,GS_L_AVAILABLE(R7),R10 ; Search for a willing processor 
0 12 OBAE 185 BNEQ 30 : BR if we found one 
O0E2 31 pes : 38 308 BRw 0$ ; BR if there are none left 
O1AC C6 «6990 «(0BBS 1860 MOVB MA_B_MYPORT(R6),- ; Start filling in message... | 
10B0' CF OBB? 1861 SYRCA_MBBUF+MB_B SENDER > ...Sender's port number... 
10B1'CF SA 90 OBBA 1 $6 MOVB R10,SYNCH_MBBUF+MB_B_RECEIVER ; ...receiver's port number... 
O1EC C6 «6990 OBBF 186 MOVB MA_W_UNITTR6) ,= 3 «.-unit number... 
10B2°CF 3 +43 SYACA MBBUF +MB_B_UNIT i ...0f the ponery we share... 
01 6 1865 MOVW #MSG_RELLO,- 3 «+-Peason for the message... 
10B3'CF 8 1866 SYNCA_MBBUF +MB_W_WHY 
5B  06A8 C7 B 186 MOVAL GS_K_PVT_AREASTR7) R11 
5B 5B 5A 00000200 8F 9 1368 EMUL #COMGS PUT_AREA,R10,R11,R11 ; ...(point to)... 
onFe cB 1 § mMOVa COMGS_PvT_CODE(R11).- 3 «e.and the other processor's... 
108 "CF D 18 0 SYNCH-MBBOF +MB_K_MISC > ...date/time 
Os 8 C6 0 1871 MOVC3 MA_Q_COMMBNAM(R6),- ; Form the logical name... 
1OE3'CF 0260 C6 4 1376 MA_T_COMMBNAM(R6),SYNCH_MBNAM ; ...0f other processor's MB 
100B'CF 9638 C6 A 187 MOVL MA_Q COMMBNAM(R6),SYNCH_MBPTR ; Form descriptor to... 
10DF°CF 10E3°CF 1 1874 MOVAL SYRCA_MBNAM,SYNCH_MBPTR#4 3 «..the logical name 
50 oss : : 8 noe, A, & : Include the port number... 
FF AS = 50 1 os MOVB RO,-1(R3) 3 «eein the name 
1 28 SCREMBX_S CHAN = SYNCH_MBCHN,- ; Establish a Link to other proc’s MB 
187 LOGNAM = SYNCH"MBPTR 
1102°CF _FAQAIFOO or 1880 MOVL #HELLO_TIMEOUT,SYNCH_MBDAY ; SSETIMR parameters - DAYTIM... 
1106'CF 0 1881 MCOML #0,SYNCH_MBDAY+4 5 wee 
54 10 to g1 ? é INSV #56 HEL 0,416,#16,R4 : ..-REQIDT... 
54 OeC C6 1 1884 MOVB  MA_W_UNIT(R6) .R4 Seas 
1885 SSETIMR_S BAYTIM = SYNCH _MBDAY,- ; A timer will let us know... 
1 § ASTADR = MB_TIMEQUT_AST,- : ...if the other processor... 
1 REQIDOT = R4 3; ..-doesn't ss | to the following 
00 01DC C6 =SA ; ! 3 408 BBSS R10,MA_L_HELLO(R6),40$ ; Log that we expect reply to our mail 
F 1890 $C10_S CHAN = SYNCH_MBCHN,- Say “Hi!’' to the other processor 
F 1891 FUNC = #10$ QRITEVBLK: 1OSM_NOW,- 
oe 35 10SB = SYNCA_MBISs,- 
F 189 P1 = SYNCH_MBBUF ,- 
| 


H 3 
Ma 4 VAX/VMS UETP DEVICE TEST FOR MA780 16-SEP-1984 00: ¢2: 9 VAX/VMS Macro v04-00 Page 38 
v04-000 Test the wee Memory ~SEP=1984 04:55:56 (CUETPSY.SRCJUETMA7800.MAR; 1 (2 
C4F 6189 e = #MB_K_END 
8 DD tte 1 3¢ PUSHL é 
1422'CF 1 FB OC 1 38 ty ts #1 ,QIOMB_SYNCH_CHECK 3; Check the completion status 
C79 1 DASSGN_S EHAN = 5 SYNCH MBCHN =; We no Longer need the MB 
5B OSA 8 ¢3 OC 1 38 BL R8,R10,R1 ; Get number of bits v searched 
B OD C89 189 L Rif ; Correct Ab eg P ( eh ve «ae 
2 a * C8B SC ? SUBL R11,R9 3; Adjust num gt bits left to search 
58 A } § ¢ 1 ADDL #1 R10,R8 3; Point to — first bit to search 
FFI 1 c g ‘a, RW 20§ ; Loop thru all procs on this memory 
56 6 CO 4 1904 ADDL2 (R6),R6 ; Point to node for next memory 
56 00000108" BF b| C9 1905 CMPL #UNIT_LIST,R6 : Back at the start of the queue? 
COF 1 § BEQL g $ ; BR if we are - we're finished 
FEFA 31 OCA1 19 BRwW $ ; More to go so loop. 
CA4 1908 60S: 


os 
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‘ ! ] INTERPROC WEF: 
7 191 4 Start the shared common event flag test. For this test to work, 
CAS 1915; processor must have control of the sees across all processors. -" 
CAS 1914; ensure es there is a lock in the interprocessor global section which 
CAS 1915 ; can - snes by only one process. For each shared memory, try to grab 
CAS 1916; the lock. t that tai ils, try to grab the next memory's a“ or proceed 
CA4 1919 3 to the next ph. oe the test. If we do grab a lock, associate with a 
CAS 1918 ; common event flag cluster in that memory. For each processor connected 
CA4 1919 r to the memory, choses a ingrt in that cluster and send step process a | 
CAS 1920 ; mailbox message requesting the processor to set that b the 
CAS 1921 ; cluster. Allow a Fpesense @ areeens for that to occur. if the 
CAS 1922 ; procpeeer Ae ge Oy, setting the b fe! pick another processor to clear | 
CA4 (19 : ; the b ain, allowing a mhesonehis timeout for that action. Verify 
CAS 1926 ; that the es get set and cleared. Release the lock in the shared 
CAS 1925 ; memory. 
AL 388 
OCA4 + 3 3; NOTE — a eo on loop, registers R6 through R10 are set and 
AG 3 s to_remain unc 
56 O1D8'CF 000001D8'BF C1 cA 1980 sa UMCADDLS MUNIT LIST UNIT_LIST,R6 ; R6 points to node for current memory 
. MGSRAD(R6) ,R7 s' R7 will point into the interproc GS 
0b 28 A? age 6 Pe 6 13 : BESS! #07 eS eer PLAG(A?) ,20 ; Try to ered the interlock 
of C C6 50 CBB 1934 MOVB MA_B_AYPORTTRO), ." “pit was clear... 
A7 CBC 1935 gs L-CEF OFLAGS SR?) ‘ ar 
03 =(11 coe 1336 208: BRB os ~ i «eemy port has the interloc 
0278 =3=31 bce 1358 oes BRW 150$ ; Bit was set - someone else has it 
Oct 1940 SASCEFC a cre = MAO CORES NAN ng} Associate with interprocessor cluster 
58 04 (D8 1963 CLRL RB eee ; RB is STRTPOS for FFS operations 
59 04 00 OCR 1928 MOVL #PROCESSOR_MAX,R9 ; R9 is SIZE for FFS operations 
5A 24 A7 59 58 CEA Sepp 1968 se FFS R8,R9,GS_L_AVAILABLE(R7), _ Search for a willing processor 
03 12 Oe 194 BNEQ abs sp 20 ; R if we found one 
0245 31 OCE 1947 50s BRW 140$ : BR if there are none left 
cE : 
* : Start fillin in message... 
+ OB0" EF 2 ces 1980 —_— SYRCR MBBUF SMS. 6 SE : ...sender's Sort number... 
10B1'CF Sh 90 OCEF 1951 MOVB R10,SYNCH MBBUF SRB. ex RECEIVER : «receiver's port number... 
O1EC C6 «90 OCF4 198 MOVB MA_W_UN 6), 3 «e-unit no. of shared memory... 
10B2' CF CFB 19 § SYRCA_MBBUF #MB_B_UNIT 
65 BO OCFB 198 MOVW #*SG te: 3 «.+.Preason for the message... 
1083' CF CFD 1955 SYNCR RBBUF +B WHY | 
BT aA ce pete 66 £? 007 1989 eoeyg 4 “eS RANDORT nISc ; ..and a random bit to set 
6 
C6 28 B10 1989 MOVC3 nA 4 _COMMBNAM(R6) , - ; Form the logical name,.. 
10E3°CF C D14 1960 TC CORABNAR(RE) “3 SYNCH_MBNAM ; ...0f other processor's MB 
10DB° CF 3 C6 DO QODIA 1961 MOVL mA Q” COMMBNAM(R6) , SYNCH zhBPTR ; Form descriptor to... 
10DF°CF 10E3"CF OD p21 19 MOVAL SYRCA_MBNAM,SYNCH_ *MBPTRI4 the logical name 
5 ‘ i 19 : MOVL R sayy : Include” the port number... 
D 1964 BSBW HE XUN see 
FF A3 sg 3 ; D 3 1988 MOVB RO,-1(R3) i eeein the name 
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BS 1967 SCREMBX_S CHAN = SYNCH_MBCHN,= ; Establish a Link to other proc's MB 
D 1 8 LOGNAM = SYNCH_MBPTR 
1102°CF shone F 4 + ! ay . wi gt 1 OO a tat ; SSETIMR parameters - DAYTIM... 
2 i? 8 g F BS 1 9 INSV ms postr #16,416,R4 3 ««REQIDT... 
4 Q : A FO OD ¢ 19% INSV R10, 98, #8, R4 5 baa 
4 O16C C6 90 0061 197 MOVB  MA_W_UNIT(RG) ,R4 Pr 
D66 «1974 SSETIMR_S BAYTIM = SYNCH_MBDAY,- ; A timer will let us know... 
D66 (1975 ASTADR = MB_TIMEOUT_AST,- : ...if the other processor... 
43 1308 REQIDT = R4 ; «.-doesn’t reply to the following 
00 0164 C6 SA €E2 44. 13 60s BBSS R10,MA_L_DOSET(R6),60$ ; Log that we expect reply to our mail 
D7F 1999 $Q10_S CHAN = SYNCH_MBCHN,- ; Tell the other processor to set a bit 
D7F 1980 FUNC = #10$ QRITEVBLK! 10$M_NOW,- 
D7F 1981 10SB = SYNCA_MBISB,- 
D7F 19 ¢ P1 = SYNCH_MBBUF ,- 
D7F 19 P2 = #MB_K_END 
54 DD OQDA2 1984 PUSHL R4 
1422°CF O01 FB OQDA& 1985 CALLS #1,QI1OMB_SYNCH_CHECK 3; Check the completion status 
ODAg 19 $ SDASSGN_S CHAN ="SYNCH"MBCHN  : We no Longer need the MB 
apes 1988 ; Now we must wait. The logic of the interprocessor CEF test dictates that we 
DBS 1989 ; know for sure that either the other processor successfully set the bit or we 
ODBS 1990 ; know for sure that it did not. We will wait for either the receipt of a 
ODBS 1991 ; mailbox in reply (must happen at AST Level) or the expiration of the timer. 
0pB5 1336 ; Note that on return, we cannot assume the contents of the mailbox received 
DBS 1993 ; at AST level because another mailbox may have been received as well, however 
DBS 1994 ; the mailbox receipt routine is smart enough to realize this and will move 
DBS 1995 ; the contents of the reply we want into the synchronous mailbox buffer. If 
Het 1938 ; the buffer is unchanged, assume the transfer failed and we timed out. 
Opes 1998 ; SHIBER_S ; Wait for mailbox AST or time out 
06 Bi foes 199 CMPW #MSG_ISSET,=- 3; Message acknowledged? 
1083' CF DB 00 YNCA_MBBUF +MB_W_WHY 
13° ODC 1 BEQL $ ; BR if it was 
00000060 8F Ci ODC Ong ADDL3 #COMEF_EFN,- ; Timed out. Event already logged.... 
50 10B5'CF DC 90 SYNCH_AMBBUF+MB_K_MISC.RO : ... 
+54 Bee 708 SSETEF_S EFN = RO 3 «..S0 just recover 
DD6 $ SREADEF_S EFN = #COMEF _EFN,- ; Check to see... 
DD STATE = SYNCH _MBBUF +MB_K_MISC+4 
ipes"t 9C 444 38 ROTL SYNCH MBBUF +AB_KAISC,= 3 «eeif the bit we wanted... 
58 1089" CE i oF 10 CPL SYNCH_MBBUF +MB_K_MISC+4 R11 Vonis ot set 
00 0100 C6 SA ECE +H} \§ 75$ BBSS R1O,MA_L_DOSETFAIL (RO) .78S ; Bit wasn't set, log the error 
0000060 8F C1 OQDFA 14 ADOL3 #COMEF _EFN,=- ; Event is now logged,... 
50 10B5'CF £00 2015 SYNCH. ABBUF *MB_K_MISC,RO B sag 
E04 1 SSETEF_S EFN = R 3 «+80 just recover 
E0D 17 80$: 
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EVICE TEST FOR MA7BO 
Test the Multiport Memory 


We're going through 
in the common event 
a random processor - : ear that b 


"SSEp=198e 82:85:38 


he available processors one-by-one to set random bits 
Now yee the flag bit in a function to determine 


= 
= 
= 
_DOCLEAR(R6),110$ ; Log that we expect reply ¢t 
SYN ; Tell another processor to clear a bit 


AX/VMS Mac 


UETPSY.SRC SGeYmA7800. MAR; 1? 


3; This nonsense... 


; ..-allows us... 

; (Catch pathological case -) 
; ( = prevent hassles ) 

i; ( if no one can send mail!) 


3 sectO PTEReds 
3 «++@ fandom processor... 


Py eoetOcce 


3 «clear the bit just set 


; Include the port number... 


s tein the mailbox name 


Establish a Link to other proc's MB 
SSETIMR parameters - DAYTIM... 


: «+ REQIDT... 


; A timer will let us know... 

: avet¥ the other processor... 

3; «--doesn't reply to the wes Lewsng 
our mail 


ROTL SYNCH iBBuE +ne K_MISC 
gs AVAILABLETR7) URI f." 
FFS #07832 
BNE 90$ 
ADDL3 SYNCH MBBUF +MB_K_MISC,- 
908 B_AYPORT(R6),R1 
SUBL2 sya, MBBUF +MB_K_MISC,R11 
BGE gos 
ae ADDL2 #32,R11 
MOVB R11 SYNCH eRBBUF +B _B_RECEIVER ; 
MOVW  4#MSG_D 
SYN rtd i RSP he. W_WHY 
MOVL a1 RO : 
BSBW HEXUNIT hairs 
MOVZWL SYNCH MBPTR. RG : 
MOVB H_MBNAM=1 (R4) 
SCREMBX_S ENN ="SYNCH_MBCHN,= ; 
OGNAM = SYNCH-MBPTR 
MOVL PDOCLEAR -JINEOOT. SYNCH_MBDAY ; 
MCOML #0,SYNCH™ 
INSV mie aa wire #16,R4 
INSV : 
MOVB Tire) : 
SSETIMR_S sarin" ey hen MBDAY,- 
ADR = MB_TIMEOUT_AST.- ; 
Rea T = R47 
BBSS R11, MA_L_DOC 
110$: 
$Q10_S CHAN = 
FUNC = 3108 NORITEVBLK! fosm. NOW, = 
10SB = SYNCA_MBISB,- 
Pi = SYNCH-MBBUF .- 
= #MB_K~END 
PUSHL 4 
CALLS #1,Q10MB_SYNCH_CHECK  ; 


SDASSGN_S CHAN = 


“SYNCH_MBCHN 


Check the comptot ton status 
We no longer need the MB 


Le 


49 
(26) 


04- P 
vest ae mroh “NPHESIMEA USRT WMAP Mtoe "Oh 


ECA ilbox 
above, we must wait. Likewise, the ma 
ECA b AeF rout ne aad oe net Lbox timeout routine will act on our buffer as they 
th gi did before. 
; ; Wait for mailbox AST or time out 
08 61 EDT § thege- Sons ISCLEAR 3; Message acknowledged? 
10B83'CF ED 0 i MBBUF +48 _ W_WHY : BR if ft 
3 5p qi ADDL U\EF 4 Timed out. “Event already logged,... 
90000060 8F Cl OE i NCH HA BUFsMB_K_MISC,RO Faas 
edd EPS 74 SCLREF_S EFN = ; «+80 just recover 
EEB 07> 1208: Check to see if the bit we wanted... 
1 lees EE NE 
10B9'CF OD EFC 143 i SIN MBBUT SMB. K OMISC#E T ; : gat at sc*gqued 
19 3 FO ? L t cleared, log it 
00 01¢4 C6) «=65BUC‘é at ' 1258: BBSS R11,MA_L _DOCLEARFAIL(R6), 125$ ; ve were c : 9 
: ; Event is now logged,... 
00000060 8F C1 OF ADDL3 #COMEF R on 
50 1085" CF BFS O88 SCLREF _SYNCHABRUF na, sateen «+80 just recover 
FIB 2085 130$: ; its we searche 
a m= & FED & § pues | Nieahde F ot Bagg Se eae, Cinetusive: search) 
es Re g SUBL R11,R9 ; Adjust number of bits left to search 
22 38 Ce (OFe) 5088 ADOL #1,R10,R8 ; Point to new first bit to search 
>” FB? $j OF 4 090 BRW 406” ; Loop thru all procs on this memory 
F2B 2091 1408: , CEF cluster 
F_EFN ; Disassociate from shared 
28 A? 4 i 3 098 CLR meseL CEF FLAG(R?) ; Release the interlock 
F 38 96 1508: ; Point to node for next memory 
56 66 «=6CO «(OF3B 2095 ADDL2 = (RG) RE : Be he start of the queue? 
56 000001DE"SF = Ot : E ¥ beat unit atthe : ee Re. we're finished 
robe 3 Ore? $98 BRW 10$ ; More to go so loop 
OF4A 2099 160$: 
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connected to the memory instructing the processor to drop everything 


else that it is doing and begin the interlocking test. 


+ MEM_INTERLOCK : 

FGA 3 Stare the part of the test which tests use of interlocking instructions 
FA ; n the shared memory. There is an interlock (please forgive the 

FGA 3 overloading of the word ‘‘interlock'’) longword in the interprocessor 

FA ; lobal section for this part of the test. If we can't get that lock 
FGA ; or a given memory, try to get it for the next memory or proceed to the 
FGA : next part of the test. if we do get it, send mail to each processor 


; NOTE WELL! Within the following loop, registers R6 through R10 are set and 
H sonuned 7F renee unchan 


hanged. 
56 O1D8"CF Q000001D8'SF C1 #UNIT_LISTSUNIT_LIST,.R6 ; R6 points to node for current memory 


1 
1 
1 
104 
! 5 
5 
Fea 5109 
F4A 2110 
F4A 2111 
FGA 211 
FSA 211 
FA 211 
Fee 5116 108 
57. 062C C6 00 Fe 113 OVL MA_Q_COMGSRAD(R6) ,R7 : Point to the start of interproc GS 
08 34 A700 ES £39 118 BBSSI #07GS L_INTLK_FLAG(R7),20$ ; Try to grab interlock 
O1AC C6 F 11 MOVB MA.B_AYPORT(RS),- ; Bit was clear... 
A7 F6 120 $s LUINTLK_FLAG+3(R7) 
03; 11 Or6¢ 1 1 208 BRB os i seemy port has the interlock 
017c~ = «51 +3 } § 30s BRW 2108 ; Bit was set, someone else has it 
oar Ot OF 125 CLRQ GS_L_PARTICIPATING(R7) ; Clear participating and finished masks 
00 67 OO 2 roe 1 § MOVCS #07(R7),#0,- 3; Clear the common ADAW! words... 
14 F 1 #<PROCESSOR_MAX+1>#4,- : ...and the private ADAW! words 
38 A7 F71 21 8 uL_ADAWI COM(R7) 
$2 A? = 7C «(OF73 21 CLRQ GS_Q_BUSY( ; Set up the busy queue... 
8A? 7C gree 130 CLRQ GS _Q FREE(R7) ; -.-clear out the free queue... 
5B 00000064 8F 00 84 131 MOVL #COMGS_QUEUE_MAX,R11 : 
68 A? ODE ree : ae MOVAL GS_K_Q™ENTRIES(R?),R5 : ... 
58 A?) 3665 )0=—55CsCOOFB4 2134 INSQHI (R5) §5.0_FREE CA?) ; Put an entry on the free queue 
10 CO OF8B8 2135 ADDL2 #16,R : Skip flink, blink, port, filler 
’sa «€6F OF 8B 1 § SOBGTR R11 on 
08 00 00 2C OF 1 MOVCS #0, (R7) #0. HPROCESSOR_MAX®2,~ ; Clear out the counters... 
4C A 4 | 3 GS_K_Q_COUNT(R ) ; ...for each processor's entries 
58 D4 OF9 140 CLRL R8 ; RB is STRTPOS for FFS operations 
59 04 dO a4 123 50S MOVL #PROCESSOR_MAX,R9 ; RY is SIZE for FFS operations 
5A 24 A7 59 58 EA OF9A 128 FFS R8,R9,GS_L_AVAILABLE(R7),R10 ; Search for a willing processor 
03 iF FAO 2144 BNEQ 6o§ : BR if we found one 
OOAA 3 o 122 BRwW 100$ ; BR if there are none left 


oa 
So 
wf 


; +..and then set it up... 
| 


3 
UETMA7800 VAX/VMS UETP DEVICE TEST FOR MA7B0 16-SEP=1 0:27:39 VAX/VMS ov 
¥54-000 Test the Multiport Memory ~$FE 1382 88 98 32 UETPSY.S CoC BAT BOO. MAR; 1 che (38) 


If, as in the other sections, a current processor were treated just Like 
any other it. too, would get mail, drop everything, and proceed to the 

h did the actual esting. That would cpuse problem unless the 
oyrrens processor were the last one to receive the mail, an unlikely 

reuaetenet Make the te prepeceer a special case, then, and don't 

send it ma Instead, after all the other mail is sent, simulate the 
necessary portions of th ; other processors’ code when the mail is received 
and go to the code which does the actual testing. 


~" 
oOw>r>rr>r>r>rrrrrrrrrr 


DOH LWAHODOVW™M MW DAWG OOOCOCOCOOOvN "e—@ GAS A+ Ft yet POD IT ITIIUIIN 


5A OAC 8 9} cur BAB AYPORT (RG) «R10 ; Did I pick my processor? 
00 if 708 BRW 50s ; BR if so - I don't get my own mail 
O1AC C6 = 90 MOVB MA_B_MYPORT(R6) : Start filling in message... 
ad SYACR_MBBUF +MB és NDER ; -+-sender's port number... 
10B81'CF A 90 MOVB R10.S tN CH MBBUF RB. B_RECEIVER ; ...receiver’s port number... 
O1EC C6 = 90 MOVB UNIT raped 3 «e-unit no. of shared memory... 
1082" CF SYACA TeBUF om _B_UNIT 
09 B80 MOVW msc, INTERLOCK;= 3 «..reason for message 
1083" CE ay" AL ABBUF 9 W_WHY 
0 C6 «28 mMovCc3 6. COM AM(R6),- ; Form the logical name... 
10E3"CF 0260 C6 HA At ~COMMBNAM(RE) - SYNCH_MBNAM ; ...0f other processor's MB 
100B'CF 0258 C6 D0 MOVL MA-Q” COMMBNAM(R6) , SYNCH” ghOPTR : Form descriptor to... 
10DF'CF 10E3°CF MOVAL SYRCA_MBNAM, SYNCH. MBPTR#4 «e-the logical name 
50 5A MOVL : oR ; Include the port number... 
024C are HEXUNIT ; 
FF A3 50 ‘ ve lint 


OVvB R3) 
SC REMBX ns cian = SYNCH_MBCHN, = bstapuioh © Lith 00 ether proc’s MB 
= SYNCH~MBPTR 


: Note that not = x * set - we assume any processor which will start will do 
3 so as goon 8 as ERAN S"syn 


= Tell the other processor to... 
FUNC = BIOS “ani Teveck: fosh_ NOW, 
10SB = SYNCA_ B.- ; ...test memory interlocking 
4 | = SYNCH MBBUF - 
= 
7E 98 MOVW Roce INTERLOCK>=(SP) ; Set up QIOMB_SYNCH_CHECK param 
7E A MOVB R10,-(SP) 
7E O1ELC C6 9 MOVB MA_W_UNIT(R6) ,-(SP) 
1422°CF O11 FB AL #1 “OTOMB SYNCH_ CHECK 3; Check the completion status 


CALLS 
SDASSGN_S S CHAN ="SYNCH~ MBCHN ; We no longer need the MB 


90$: 
5B SA 58 (C3 SUBL3 Ro, R10,R11 ; Get number of bits we searched 
5B OD INCL ; Correct off-by-one (inclusive search) 
5B OC SUBL R11,R9 3 
58 4 01 § ADDL #1 R10, R8 ; Point to new first bit to search 
FF4B 1 1008 BRW 50$ ; Loop thru all procs on this memory 


1164°CF 56 00 


10F7"CF OO FB 
1164°CF D4 


MOVL R6, INTERLOCK_SAVED_R6 


INTERLOCKING _TEST 
CLRL Tatenore _SAVED-R6 


Save vital register. 

...and lock us to this memory 

Go thrash memory interlock feature 
It's OK to thrash some other memory 


PR te st 4 4 ss as a ss ss as ss as 2 ss ss ts 
DOOOOO OOOO O00 0009 09 09 09 09 08 SINISE PA AAA AAA AIT 


OwWoO 
ooom 

tt HS MQDDOOOOOOOCOOCOSCO 

SOWNAAL WINS ODNOAUNE WIN SO OONAU EWN SO ONAN EWN OOO NOUE 


MAE FES F&F FUININNNVOOOCOCOCCOSMMMMOVIONOOOoW 


SOOOOSOOCOOSOOOoSOS 


Adjust number of ae vere to search 
| 


<c 


om 


UETMA7800 
vb4~000 


5 
55 

5B _ 3C A745 
F7 55_ 04 
5B 38 a 


30 A 
01D4 Cé 


50. 0 60 33 

4C A745 
F6 55 

58 A7 

21 

5B «58 A? 

5 5B 

55 00000064 &F 
58 


58 


4 
VAX/VMS UETP DEVICE TEST FOR MATBD 
Test the Multiport Memory 


SSEp=198e 80:85:56 


macys Macro Page 


v04- 
UETPS BRE SOE YRA7SOO.MAR: 1 


105D H 
1050 g ; We've finished our portion of the test; it's a fair guess to say that other 
105D 4 ; processors are probably Gene to finishing also. However, to be on the safe 
105D 5 ; side, allow some extra time for them to finish. We'll know they're finished 
105D § ; because the mask of processors which have finished will be the same as the 
: 4 ; mask as those which started. 
D4 : 2p 09 1208 CLRL R11 ; Clear out our counter 
CD 105F 11 XORLS 53 .L PARTICIPATING (87) = ; Has everyone finished yet? 
106 1§ _F INISHED(R7) ,R2 
13 130 1 BEQL ; BR if they have 
1 $ 14 SSCHDWK_S DAYTIM = ONE_SECOND ; Wait a second... 
1078 15 $H & ; «seif they haven't 
Fe 4 18 aves #INTERLOCK_LIMIT,R11,1208 : Loop a reasonable number of times 
¢ 1 85 1 BISL2 R2,MA_L_INTLKTMO(R6) =; Timed out, remember who is left 
1 108 18 BRw 206$ ; Consistency checking is useless 
4 1 130$: 
1088 13 
\oee ¢ ; To see if the memory interlocking worked correctly, we check the results of 
10 ; the two tests performed. For the ADAW!] test, the common longword should 
1088 4 ; equal the sum of the private longwords. For the queue test, the busy queue 
1088 5 ; should be empty, all entries should be on the free queue and no processor 
1Oee § ; should have any queue entries outstanding. 
D4 1088 8 CLRL R11 i Initialize sum 
D4 ier 4 1408 CLRL R5 ; Initialize counter and pointer 
C Hs 1 ADDL2 GS_K_ADAWI_PVT(R7)CR5J,R11 ; Add in this processor's count 
F2 1094 ¢ AOBLSS #PROTESSOR-MAX,R5,140$ ; Loop through all count longwords 
D1 1098 CMPL GS_L_ADAWI-COM(R75,R11 : Expected sum equal actual sum? 
13 109C¢ 4 BEQL 50 ; BR if it is 
c8 44 5 BISL2 GS_L_FINISHED(R7),- ; Otherwise, remember the group... 
A MA_L_IADAWI(R ; «Of CPUS who n't add up 
' oa 1508 I 1(R6) fc ho didn't ad 
10A4 
7D 10A4 § mOvVa GS_Q_BUSY(R7) ,RO i; Is busy Queue empty? (RO is trash) 
12 10A8 40 BNEQ 190$ ; BR if it isn't 
D4 1OAC 3 1608 CLRL RS :; Initialize counter and pointer 
BS 10AC tg TSTW GS_K_Q_COUNT(R7)(R5) ; Any entries for this processor? 
i; 1 44 BNEQ 190$ ; BR if there are - we're screwed up 
F : ¢2 AOBLSS #PROCESSOR_MAX,R5S,160$ ; Loop to check all processors 
if 1 3 43 TSTL GS_Q_FREE(R7) ; Anything on free queue? 
13 (1 rt: BEQL 190$ : BR if not - all screwed up 
DE 1 & MOVAL GS_Q_ FREE(R7),R11 ; Point to header of free queue | 
DO 10BF 50 MOVL oR4 ; Set up a constant to compare with 
D : ce 2) 1708 MOVL #COMGS_QUEUE_MAX,R5 ; Initialize counter 
co 10C9 : ADDL2 = (R11),R11 ; Point to the next queue entry 
D7? 10CC 4 DECL R ; Count down entries in queue 
19 10C 5 BLSS 180$ ; BR if we've examined all entries 
D1 10D § CMPL RG,R11 3 Pointing back at the header now? 
13° 10D BEQL 1968 > Shouldn’t be! BR if we are 
11. 10D 8 BRB 170$ ; See where the next entry points us 


3d) 


} 
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10D7 
1007 


> sb st 


pojeolelelejeloloiojleieicio) 


RW HMMMMmMmMnovoloTg 
PP MOMVUPINIVITMOO YP 


59 180$: 
60 


61 
§¢ 190$: 
64 

5 200$: 
67 2108: 
6 


; 


: 2208: 
4 


16=SEP=19 
o7SEE = 198 
R4 R11 
206$ 
GS_L_F INISHED(R7),= 
MA_L~ LQUEUE (R6) 
GS_L_INTLK_FLAG(R7) 
(R6) ,R6 
#UNIT_LIST,R6 
208 

$ 
NEXT_ITERATION 


4 
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ALL entries counted, back at header? 
We're OK = go clean up 


Inconsistent queues or count,... 
«+-remember who participated 


Release the interlock 

Point to node for next memory 

Back at the start of the queue? 
R if we are - we're finished 

More to go so loop 


Pass over INTERLOCKING_TEST 


i 


ae we 
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Test the Multiport Memory 
INTERLOCKING TEST: 


wn 


We reach this poine by two routes. The simple one is a call from the 
code at MEM_INTERLOCK. In that case, this processor owns the lock for 
a memory and executes the rts synchronously. Other processors have 
been sent mailboxes and will join in the testing as soon as they can. 
If, on the other hand, we are one of the processors which was off in 
some other part of the test and ouceen 2 got a mailbox AST, this code 
is being executed asynchronously, BUT NOT AT AST LEVEL! The mailbox 
routine has reenabled ASTs. In either case, we have the address of 
the node for the genery in which the interlocking will be tested in 
INETRLOCK_SAVED_R6, whic 


h also serves to lock us to thrashing one 
memory at a time. 


MEW OOO NOAU EWN O ONO 


OFFC -WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> 
56 Niga*ce D0 MOVL INTERLOCK SAVED _R6,R6 ‘; Set up vital registers - node... 
57 062C C6 00 POVL MA_Q_COMGSRAD (RB) ,R7 ; «..and base of interprocessor GS 
58 O1AC C6 9A MOVZBL MA~B-MYPORT(R6) ,RB ; Set up to say that... 
00 2C A?) «36558—COES 108 BBSSI R8,GS_L_PARTICIPATING(R7),10$ : ...we're participating 


tt a 8 tt dd 8 


Ot kt kk a at a 2 a ss ts BOQOO OOOO COCO OOOOOOO 


POPPI) 9 2 3 3 MOD ODO DOQQ DOO FF 5 FF FF FF FF FN Fe FN ND 0 
NNW S OL SMI TTF 9T 99999 OM OL 


A AAA A.A A.A AHA A.A. A AGPPIPIPIPSPID POP PYPIPOPIPINIPINPIPINIPIPIPINNPD 


| $$ “QOOCDODOOCOCOC OC OCO0O0O0O0O0 OO OCDBWDDWMWODOMMO YIN 


8 ; For the first test of —— Lo interlocking, we will "7 to force collisions 
9 ; using the add-aligned-word-interlocked instruction. Each processor 
0 ; increments in parallel a longword reserved to that processor and a longword 
1 ; accessed in common. The sum of the private longwords should equal the value 
§ : in the common Longword. 
58 3C A748 ODE .- MOVAL GS_K_ADAWI_PVT(R7)CR8],R8 ; Set up pointer to my own counter... 
59 D4 5 208 CLRL R9 3; «..and a loop counter 
38 A?) «6001CtséS58 ‘ A ADAWI] #1,GS_L_ADAWI_COM(R7) ; Increment the common word 
04 i 8 BCC ; BR if no carry 
SAA? 601 OSS 30s ADAW] #1,GS_L_ADAWI_COM+2(R7) ; Increment common overflow word 
68 01 58 1 ; ADAW] #1,(R8) : Increment my private word 
04 ~=«'€E ¢ BCC ; BR if no carry 
02 a8 O01 58 t ons ADAW] #1,2(R8) ; Increment my private overflow word 
5 . 


E5 59 00030040 BF F2 


AOBLSS #ADAWI_LIMIT,R9,20$ ; Loop until counter is exhausted 


—s 
—> 


—nOnT —OMNe 
PAEQEMNMAN NIE 


oo 
VVATSVGSVOIS SIN ADO POOMAS AS h— MIO MOD OR A 


—— 9 


—~ ho 


~~ 
™ 


— 
WRI 9 ODNA NES WIN 0 OD NA NEW @ O ODNAU EWN O OOONOAU ES UO OO 
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1 
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1 
1 
1 
1 
i 
1 
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1 
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1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
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1 
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o Pe PEE A et tA aA Oa yy Ee eee 8 meee wey wee tet ab ae ey Na oe a 
wn 


Ww 


1108: 


120$: 
130$: 


140$: 


150$: 


160$: 


170$: 
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econd test of memor 
free’ queue an 
pregeceer area o 
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interlocking, processors will take an entry 
n 


queue. They will keep count 


the number of entries they have in the busy queue. 


e free queve is exhausted, processors will start fo remove queue 


entries (anyone's) from 
; decrementin 
of times. 


MOVZBL MA_ 
MOVAW G 


CLRL 


MOVZBL 


MOVL 
ADAW! 


INSQTI 
BCS 
BRB 


AOBLSS M#QUEUE_LIMIT,R9,110$ 


: This processor has finished its share of the memory interlock test. 

the success or failure of the test can be checked gnty by 

when all prpeetsers which indicated that they were 
s 


goose nd then onl 
¢ hed. So for now, just indicate 


pating have ind 
; that we're done. 


MA_B_MYPORT(R6) 
GS"L~F INISHED(R 


BBSSI 


RET 


he busy queue and replace them 

the appropriate count. 
hen the dust dies down, each 
the busy queue empty and the free queue 


MYPORT(R6) RB 
Q_COUNT(R7SCR8I,R8 


GS_Q_FREE(R7),R10 
1308" 


MA_B_MYPORT(R6) ,8(R10) 
(R10) ,GS_Q_BUSY(R7) 


-BUSY(R7) ,R10 


»R11 . 
K_Q_COUNT(R7)CR113 
; Replace the entr 


; BR if secondary Tnterlock failed 
; Loop until busy queue is empty 


ated that they fin 


processor's count should be zero, 


full (the same as our initial state). 


Set up a pointer to... 
«+emy counter 
Clear loop counter 


Pick off a ‘‘free'’ queue entry 

BR if we got one from the queue 
BR if secondary interlock failed 
Queue is empty, start refilling it 


; Mark the entry as mine 


Put the entry in the ‘‘busy’’ queue 
BR if secondary interlock failed 

Count my entries in the one queue 
Loop until free queve is exhausted 


Pick off a ‘‘busy’* queue entry 

BR if we got one from the queue 

BR if secondary interlock failed 
Queue is empty, count an iteration 


Who owned this entry? 
; Decrement the owner's count 


; Loop until counter is exhausted 


the initiating 


; Say that we've finished 


n the ieee ueue 
The sequence repeats a specifie number 


in the free queue 


However 


Mar 34 00 


01B2'CF 

03 0002'CF 64 
FOFA 

1C47°CF 8600 


0014'CF 0 
OO14'CF § 4C 4 
02 

CF 


0002°CF 
0186" 


OO0C *CF 


33 


007411 F 
00000000'GF 03 
01B2'CF 


F67C 
09 0002"CF 04 


10000001 8F 
018A'CF 


F 
VAX/VMS UETP DEVICE TEST FOR MA780 
Test the Multiport Memory 


11 NEXT_ITERATION: 
6 11 INCL ITERATION . 
5 11 BBS #TEST_OVERV, FLAG, SUC_EXIT 
1 1 f BRW ONEPROC_GS : 
119 74 SUC_EXIT: 
FB O11 75 CALLS  #0,ERROR_SUMMARY ; 
119 A: STRNLOG_S LOGNAM™= MODE,- 
119 7 RSLLEN = BUFFER_PTR,= 
119 A: RSLBUF = FAO BUF : 
A 11A 7 BICB2 #LC_BITM,BUFFER ; 
1 118 6 CMPB so #“A7L/, BUFFER : 
12 118 BNEQ 108 ; 
AA 1188 : BICW2 #TEST_OVERM,FLAG ; 
D6 11C INCL PASS : 
1104 i SFAO_S CTRSTR = PASS_MSG,- 
114 5 OUTLEN = BUFFER PTR,- 
11€4 : OUTBUF = FAO BUF,- 
114 Pi = PASS,- 
Hee $8 Bead peer 
= Py 
OD TES 930% ex ae 
DD 11E7 38 PUSHL #UETPS_TEXT!STSSK_INFO ; 
FB 11ED 9 CALLS #3,G*LTBSSIGNAL $ 
D4 11F4 239% CLRL ITERATION ; 
11F 95 SSETIMR_S DAYTIM = THREEMIN,- ; 
11F %6 ASTADR = TIME OUT.- 
11F 9 EFN = #EFNZ 
31 08 38 fa BRW ONEPROC_GS : 
E1 120E 2400 BBC WONE_SHOTV,FLAG, 20$ : 
1214 2401 SWAITFR_S EFRN = #SPRGS_EFN ; 
121D 40¢ ; 
121D 240 : 
121D 2404 20S: 
D0 1p 405 MOVL 
1 $3 40 SEXIT_S STATUS : 


SSEp=198e 00:95:56 
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Increment iteration count 
; BR it fest is over 
Loop until the test is over 


Print any error statistics 


Get the run mode 

Convert to upper case 

Is Foi a loop for ever? 
BR if not 

Reset the termination flag 
Bump the pass count 


Make the end of pass message 
Push the string desc. 

Push arg count 

Push the signal name 

Print the end of pass message 
Reset the iteration coun 


Set a new timer AST for 3 minutes 


Start next pass, avoiding re-init 


Skip following unless one-shot mode 
Allow SUPDSEC to finish - otherwise... 
«+-we exit, turn off ASTs and never... 
«+echeck data validity 


#Sss ORM, 1ST SEN, LIE OS, ; Set successful exit status 


Exit with the status 


vi 
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-SBTTL Quickie Subroutines 


p++ 
; FUNCTIONAL DESCRIPTION: 
; ---being a set of short subroutines not worthy of much comment. 


TYPICAL CALLING — 
MOVx arg,R 


BSBW subroutine 
result returned in RO 


INPUT PARAMETERS: 
defined for each routine 


OUTPUT PARAMETERS: 
defined for each routine 


Mar 4 00 VAX/VMS 
Quickie 


: Given the unit number of a multiport memory (one byte), return its 
; ASCII equivalent. Routine is very trusting. 
HEXUNIT: 
50 09 91 CMPB #9,RO ; Is unit within decimal digits? 
93 18 BGEQ 1 ; BR if it is 
50 7 ~=80 108 ADDB2 #<*A/A/=-10>,R0 ; Add a kludge factor if it isn't 
50 30 80 "  ADDB2-—s #*A/0/,RO ; Convert hex to ASCII 
05 RSB 


AR—OOONOA NEW O ODNOAOU EWN 0 O@NOUE UW" O00 


; Given the address of a buffer of longwords in R1 and the buffer size in 
rr : longwords in RO, fill the buffer with pseudo-random data. 


444 RANDOM. FILL 


pds oeurowneeeuaNununwesessoresacs & 


FEW WWIII nononononononononony 3 3 3 
Wr 


OIAA'CF QIAE'CF CO ADDL2 RNR ONG « RANDOM1 ; Create a ‘'random’’ Longword 
81 O1AA'CF +4 stg MOVL RANDOM1, (R1)+ ; Stuff it in our buffer... 
F1 50 F 447 SOBGTR RO,RANDOM_FILL > ..euntil the buffer is full 


Ch 


$5 
04 AE 5 
ED 50 


51 


06 


50 

F 
ran) 
04 AE 
50 = 6E 
61 

O1F1 C6 
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)| 


1240 246 3 
1240 26 ? 3; Take a bit mask in RO and from it produce a List on the stack of those bit 
1240 26 ¢ i positions in RO which have a 1 in them. The list is suitable for use with 
124D 2455 ; the !#() SFAO directive. RO returns the number of items in the List and R1 
! rt : : ; is trashed. 
1040 24 : MASK_2_ARGLST: 
BA 1240 24 POPR #*M<R1> ; Save our return address 
DD : $f +28 108 PUSHL #0 ; Set up counter on stack 
8 1 460 TSTL R ; WiLL FFS find any bits? 
13° «1 rh BEQL 20$ ; BR if it won't 
> 4 ADDL3 = # + (Sp) -(SP) ; Count one it will find into new counter 
EA 1 3 46 FFS #0,#32,R0,4(SP) ; Find a lit bit, save its position 
E4 3 464 as BBsc }4=—_:«& “§P) , RO, 10S : Ensure we find it only once. Look for next 
00 1264 198 MOVL (SP),RO ; Return subroutine value 
17 1267 246 JMP (R1) ; RSB, a la kludge 
1269 2468 
183 $883 
1269 2471 ; Given the address of an $FAO control string in RO, do a ‘typical’’ call to the 
1269 +76 ; SFAO system service - a call which includes only the shared memory name and 
1269 2475 ; its unit number. R1 is trashed. RO has result of $FAO. Assumes that we are 
1269 2474 ; ‘typical’ in that R6 contains the address of the unit block of the current 
! $2 rh 3; memory. 
1269 499 50_FAO: 
DE 1269 2478 MOVAL MA_Q_MEMNAM(R6),R1 ; Set up SFAO parameter 
126E 2479 SFAO_S CTRSTR = (RO),- 
126E 2480 OUTLEN = BUFFER_PTR,- 
! oe : 1 OUTBUF = FAO_BUF,- 
= head 
1 oF 4 ‘ P2 = MA_W_UNIT(R6) 
05 1 484 RSB 
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00 
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03 


dB 
8E 00741130 BF 
000C' CF 
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& 
rang TEST Fon eared © CHES BESTSRD ECVE Stet nanan PP ft 


“SEP=1 UETPSY.SRCIJUE 


~nOo 
os 


by 2 call to LIBSSIGNAL which Ereats the result of the SFAO as a warning 
or info message. RO and R1 are trashed. 


60_FAO_SIGNAL: 
PUSHL  #STSSK_WARNING 
NABLE LSB 


sooo 


B 
DO_FAO_INFO: 
108 PUSHL #STSSK_INFO 
-DISABLE LSB 
BSBB DO_FAO ; Get the S$FAO over with 
BISL3) #UETPS_TEXT,(SP)+,R1 ; Form the correct message code 
At Hug BUFFER_PTR 


R1 
+ a #3,G*LIBSSIGNAL 


: Similar to DO_FAO SIGNAL, but instead of doing the call to LIBSSIGNAL, die 
; by way of ERROR_ERIT, which does its own call to LIBSSIGNAL. No return. 


b0_FAO_EXIT: 


S$BB DO_FAO ; Get the S$FAO over with 
PUSHAL BUFFER_PTR 
PUSHL 
PUSHL #UETPS_TEXT!STSS$K_ERROR 
PUSHL 


PVP PUPU PV PVT SVS SSIS E™ B™ £~ ~~ BE EE EE 
3 4) ~QODOODOOOOCOOOOOOOOOOO 


CONAN $$ O OO NAW WN CO OODNOU EW 


1 

; With the same inputs as he DO_FAO subroutine, do the $FAO and follow it 
¢ 

BRW ERROR_EXIT 
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53 ee -SBTTL Shared Memory Name Routine 

B : FUNCTIONAL DESCRIPTION: 

B9 Given the unit number of a shared eenery extract from the SHD and ADP 
B9 the gorrespensing memory name and name length and the port to which our 
B CPU is connected. 


CALLING SEQUENCE: 
SCMKRNL_S ROUTIN = SHM_INFO,- 
ARGLST = argument-List-as-described-below 


INPUT PARAMETERS: 
@04(AP) = Unit number of multiport memory 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
@08(AP) = Address of byte for shared memory port 
@12(AP) = Address for .ASCII string of shared memory name 
@16(AP) = Address of word for Length of shared memory name 


IMPLICIT OUTPUTS: 
NONE 


satan tg > oy 

UETP$_DENOSU if no arglist supplied or can't find specified unit 
SIDE EFFECTS: 

NONE 


7 TP Te Tee Ie Te Te Te Tere Tere ee Tere rere rerererere re rere re re rary 
' 
f 


tad iad ad adadatadadabatadadbabaiadabab tat aitatabmiatatabatat Babababaiabababaabababaiababaiabababababababababaiad 
wOOOOOOVOVOVOVOOOVOVNOONONO woowowowowowvondo 


SANNA AAA AAA AAO MY OTTO ES BB AAAI AAA AIA OPPO IPOD 
PA LWIN 0 DONA ANEW SO OO NONE WN OS O09 NOU EWI DOONAN EWN O OONOUE 


eee eal aaah sh sh dh ah th ab dh ah ah ah ah ah ah ah ah ah ah ah ab ah ad ah a) 


HM_INFO: 
OFFC «WORD “M<R2,R35,R4,R5,R6,R7,R8,R9,RIO,RII> =; Entry mask 
5¢ rf TSTL AP ; Were we supplied an argument List? 
48 #1 D BEQL 30$ ; BR if not 
56 00000000' GF f F MOVL 95 SEO. OL IST AS ; Point to SHB List 
7» % : 108 BEQL 0$ ; BR if none - can't find ours 
57 1C A6 00 MOVL HBSL_ADP(R6) ,R7 ; Get ADP pointer 
39 «1 C BEQL 0$ ; BR if there is none - we've goofed 
14 A 91 5 CMPB SHB$B_NEXUS(R6) ,- ; Does ADP match our SHB? 
OC A ADPSW~TR(R7) 
$ 1 BNEQ ; BR if_not = someone goofed 
57 D MOVL P$L_CSR(R7) ,R7 ; Get CSR of adapter 
4 1 BEQL ; BR if something is screwe 
57 ICA dO A MOVL MPMSL_MR(R7) ,R7 ; (1/0 space reference restriction) 
3 EF EXTZV = #MPM V_MR_UNIT,- ; Get the unit number of our memory 
7. Fy #MPMSS_MR_UNIT,R7,R7 
5 04 13 8} CMPW 4 (APY ,R7 ; Got the right memory unit? 
3 BNEQ ; BR if not 
4 ry, g MOVL SHBSL_DATAPAGE(R6).R7 ; Got correct memory. Get its SHD 
10 BC 0 A p movZpu SHDST-NAME(R7),@16(AP) ; Get the Length of the memory name... 
BC 2 MOVC @16(AP),- > ...and the name itself 


unas 
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UETPSY 
SHDST_NAME+1(R7) ,812(AP) 
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SHB$B_ alt (ne ),a6 (AP) ; Return the pers connected to our CPU 


#SS$_ROR ; We've succeede 
FEEL _L 1K (RS) LRG : Check the next SHB 
0 ; BR if there is one.. 


i «else fai 
#<UETPS_DENOSUB*C7!STSSK_ERROR>,RO ; 


l into error return 
Something is awry 
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-SBTTL SUPDSEC AST Routine for Single Processor Section 


FUNCTIONAL DESCRIPTION: 
This routine gets called at AST level whenever the SUPDSEC finishes 
for a single processor global section. It takes care of verifying the 
data and cleaning up the section. 


; CALLING SEQUENCE: 
Called as an AST in user mode 


; INPUT PARAMETERS: 
; ASTPRM is the address of the node for the memory with the section. 


; IMPLICIT INPUTS: 
; NONE 


UETMA7800 AX/ 
vb4~000 sun0S 


; OUTPUT PARAMETERS: 
; NONE 


; IMPLICIT OUTPUTS: 
Section is verified, virtual addresses deleted, section deleted and 
channel deassigned. 


; COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 
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DADA LEEEE & FWNMNMIWIWININININ SS = | | “QDOOCOOCOCOCOOCOCOCOOOCOOOOOOOOOOOOOOOOOOO 
PPOWWWIWWIWIWT OS B BN FD OS MH POS ST | 
BBE EB AINA AIR IPOPINPIPINININININDY 2 2 PS | SQODTDOOOCOOCOOOOOOOOOORM o0VJ9 
PEAR OOD NAN EW 9 OD NA UNE WI FO OD NA UE WIN @ OOD NOAUE WI 0 ODNOUS WOO C 


DPA PPAPEPAPAAAAAAA AA AA AA AA AAA AAAAAAA AAA AAAOAAOOOOAOASMIIVIVMNUTIUIWIUIVIVA 


SPRGS_AST: 
OFFC WORD “M<R2,R3,R4,R5,R6,R7,R8B,R9,R10,R11> ; Entry mask 
6D 1FI7"CF ODE MOVAL SSERROR, (FP) ; Set up AST level exception handler 
56 04 AC 00 MOVL 4(AP),R : Fetch pointer to node 
54 0644 £8 E8 BLBS MA_Q_SPRGSISB(R6),20$ : BR if the SUPDSEC went well 
5 4 CLRL R7 ; It bombed. Clear err msg arg counter 
E 0644 C6 C MOVZWL MA_Q_SPRGSISB(R6),-(SP) ; Save the main reason for the error 
OF 0646 C6 ED BLBC MA-Q-SPRGSISB+2(R6),10$ : BR if hardware was not a factor 
OSAB" Ee 4 a UFOSEC_HUE ; Hardware write error. Let user know 
00741132 DD PUSHL OVE TOS_TERTSTSSR ERROR 
7 3 600 108 MOVL #3,R7 ; Save count of args for HWE 
02. 8A BICB2 #UETUNTSM _TESTABLE,- ; The MPM is not testable... 
0B A6 UETUNTSB_FLAGS(R6) > ...(as far as one-shot thinks) 
55 O1F1 C6 DE MOVAL A_Q_MEMRAM(R6) RS ; Form $FAO parameter 
SFAO_S CTRSTR = UPDSEC_FAILED,- ; Form msg to say where error occurred 
OUTLEN = BUFFER _PTR,- 
oyTeur = FAO_BUF,- 
P = R5,- 
Pe = MA_W_UNIT(R6),- 
P = MA_Q_SPRGS1SB+4(R6) 
O000C *CF DF PUSHAL SYFFER Pte ; NOTE: Although we use BUFFER and... 
1 OD PUSHL @# ; ..-BUFFER_PTR here and synchronously... 
00741132 8F DD PUSHL #UFTPS_TEXT!STSSK_ERROR ; ...we should be safe because we exi 


— —_ --—-~4 
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VOur000 sUPOSEE AST Rout = tor Single Processor 8735p 1984 88: 8 38 LUE TPSY. SRESUETHA7BO0. MAR; 1 " (3%) 
7E 7 4 14 4 ADDL3 #4,R7, rH it ; Get total of args 
, oop $j ? cf me BRW ERROR_E 
1357 rk , SDELTVA_S INADR = MA_Q terete t i We don't need section any more... 
1 8 SDGBLSC"S GSDN ft Ms 1 peenes R6) 
1 SDASSGN_S CHA ‘s chee sty (RES 3 
} 44 SOPEN iM = mA.K rth Reopen the file for the section 
= 
7 9 113A 4 BLBC RO 40s" ; Exit quickly if RMS file error 
Fi! he 1 AF 655 SCONNECT RAB = MA_K_CHKRAB(R6),- 
13AF § ERR “. RAs ERROR 
135BE é SREAD RAB = K_CHKRAB(RG) , - ; Read the entire file 
7 64C C6 eb 639 MOVA mark «RRS ERROR R? Save address of check buffer 
; Sav 
; 2000 BF HS 1 D8 968 CMPC #WRITE SIZE ; Did the file get updated 0k? 
67 064 gs — D6 661 bial mA K_SPRBUF (R6) , (R7) i aide de 
7E 38 9A 130C 8 MOVZBL 7 : Bad update. Save the bad byte... 
7 61 9A 13DF 2664 vote ys (R1),=(SP) 3 ooo the cogrespensiog ¢ goed byte... 
7E i oo, Cs ta. 665 SUBL R7,R3$,-(SP) 3 .eewhere int er it was... 
O1F1 C6 OF 1 Ee 296 PUSHAL MA_Q_MEMNAM(R6) 3 «eethe memory where error was seen... 
ge DD 13EA 266 PUSHL #47 «--the argument count... 
0074801A 8F DD 1 ES 668 PUSHL #UETPS_DATADEVERR!STSS$K atria; 3 «and the error type 
0457" CF DF . 982 pusnAL BAD_UPBATE 3; Tell what the error was from 
00741132 4 DD 1 FS 671 PUSHL SNETPS. TEXT !STSSK_ERROR 
09 OD 13F of¢ PUSHL 3 Count the orgs we pushed 
1208 67 SCLOSE FAB = MA_K_CHKFAB(R6) ; Allow us to delete file, later 
1206 ore CB2 #UETUNTSM_TESTABLE,- : the wee tn nae ti vets merene eee 
U “ ; The $ not testable... 
08 As * 1400 erg ie vino etree 3 «(as far as one-shot thinks) 
CBE 
1613 oe a_i S$CLOSE FA ~ fie = = MA K_CHKFAB(R6),- ; We're finished with the file for now 
1221 5681 408 ple age pee 
04 1251 682 ; RET ; In fact, we're quite finished 
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+ 
; FUNCTIONAL DESCRIPTION: 


INPUT erry bbag! t 


DPA AAP AA AAA AAO OO 


; sialic INPUTS: 
OUTPUT PARAMETERS: 
; NONE 
; IMPLICIT OUTPUTS: 
NONE 


; COMPLETION CODES: 
NONE 


1OMB_SYNCH_ CHECK: 
WORD 


tt ak dd ed ed ed mB DOODOOOOOCOCOOCOOOCOOOVOOBDOOOMw@® ou 


BRB 
QIOMB_AST a 


ee el ee el el el eel eel el cell eel eel eel eel eel eld eel eel eel cel eel el el eel el cel cl eel eel eel cen cls ls cel els cel eels cl els cls elt cls alls cecil eee cecal cel eel als cls cecal lls ld eels calls 
PRR EE ELLE EEE P PPP PPP PP PEE 
OODWNA ANEW OODNOAUE WIN OOO NAME WN OOO ANEW BOO RNOUEWNOODNAUS OM 


NNN NNO oO 


AAA AAA A AAEPOPONONSPONNONNIND 


oo 


SEP-1984 UETPSY « SRETUETMA7SO0.MAR: 1 
-SBTTL Mailbox $Q10 Completion Status Routines 


Check completion status when we send an interprocessor mailbox. Print 


a message if there was an error. Note that we have two entry points - 


Page | - 


one for synchronous sends and one for AST sends. 
CALLING tt eae 
CALLS) #1,QI1OMB_2222%2%_CHECK 


) = Message type (word). 
(AP) = Receiver’s port number on shared memory (byte). 
4(AP) = Shared memory unit number (byte). 


he IOSB from either synchronous or AST sending. 


SIDE EFFECTS: 
Message ‘f there was a problem sending. 


° “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Entry mask 
MOVZWL SYNCH. MBISB.R2 3 Save synchronous unique data 
QIOMB_CHECK 


“M<R2,R3,R4,R5,R6,R7,R8,R9,RI0,R11> ; Entry mask 


MOVZWL AST_MBISB,R2 ; Save AST unique data 
Q10MB_CHECK: 
BLBS R2,108 ; Exit quickly if there was no error 
PUSHL ; Form a message... 
MOVZWL BAe} om te) 3 «eewith the error code... 
MOVZBL (AP) ,~(SP) 3 «..and the info from ASTPRM... 
MOVZBL (AP) ,-(SP) 3 «e-On the stack.., 
OVL P,RS 3 «.eSO that we don't interfere... 
PUSHAL =TEXT_BUFFER-8(SP) i «eewith any other messages... 
SHL #TEXT_BUFFER i «eethat may be being formed... 
MOVL SP,R4 . sen 
UBL2 #TEXT_BUFFER,SP ewe 
FAOL_S CTRSTR = BAD_MB_QI0O,- ; ... 
OUTLEN = (R4J,=- 
OUTBUF = (R4),- 
PRMLST = (R5) 
PUSHL R4 
PUSHL #1 


5 
TMA7800 VAX/VMS UETP DEVICE TEST FOR MA7BO 16-SEP-1 AX/VMS # v04- 
vee Mailbox $610 Completion Status Routines g- Sfp 1382 2: gg: M4 Ue They. Sac SUE YHA? O.MAR;1 _ (38) 
EF 146F 4 EXTZV ests V_SEVERITY,=- 
mf *¢ 3 108 7g = SEVERITY R2,-(SP) 
Sool” 85 FE Efe SEE be RRCRETERT GA 
1488 745 10$ 
04 14 746 RET 
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+ 

FUNCTIONAL DESCRIPTION: 
Interprocessor mailbox messages are received here. Based on the 
MB_W_WHY field, dispatch to a section which will process the message. 


CALLING SEQUENCE: 

Called via AST upon receipt of a message to this processor's mailbox. 
INPUT PARAMETERS: 

O4(AP) = address of the node for the shared memory through which the 

message was sent 

IMPLICIT INPUTS: 

AST_MBISB = IOSB when mail is received 

AST_MBBUF - Buffer into which mail is written 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


RCVMB_AST: 


«WORD “M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> ; Entry mask 
MOVAL SSERROR, (FP) 3; Set 4 AST level exception handler 
04 (AP) Get the 


3 pointer to node for this MB 
MOVW AST_MBBUF+MB_W_WHY,-(SP) ; Set up QIOMB_AST_CHECK parameter... 


MOVB AST"MBBUF+MB-B-RECEIVER,-(SP) ; ... 


MOVE MA_Q_UNIT(R6),=(SP) Bee 
CALLS #1,QTOMB_AST_CHECK ; Check $Q10 completion status 
CMPB = ASf_MBBUF+MB7B_RECEIVER,- ; Do a minimal consistency check... 
MA_B_MYPORT (ROY ; «e.to see if message is for me 
BNEQ 408 ; BR if it wasn't 
CMPB AST artiht B_UNIT,- ; More consistency checking 
MA_Q_UNIT(R6J 
BNEQ 40 ; BR if yrone unit 
CMPW #ASG_ME2ME,- : I can legitimately send myself... 
AST_ABBUF +MB_W_WHY ; «e-mail anytime... 
BEQL ; ...80 BR if I, in fact, did... 
TSTL MA_Q_COMGSRAD (R6) ; ...but other mail needs interproc GS 
BNEQ os ; BR if interproc GS was set up | 
ROTL AST_MBBUF+¢MB_B_SENDER,- ; It wasn't. Log that I... 
#i, ; os probably t mail.. 
BISL2 RO.MA_L_OLDSTUFF(R6) : :..which was intended for... 
3 2+,am image which died Suseenhs 
BRB EXIT_FROM_RCV ; Aside from that, ignore the mailbox 
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MS U 16-SEP-1984 00:27:39 VAX/VMS Macro V04- Pa 
ox Received AST Routine $7 SET bbe 88:95:82 UE TP SY. SRETUETHA7SO0. MAR: 1 = 
14CD 5 208: 

14C CASEW AST MBBUF+MB W_WHY,#1,- ; Dispatch based on message type 

14D #MAR_MSG_TYPE 

14D } -MACRO X ABCODE , DUMMY ; A macro will define dispatch address 
14D -WORD RCV_'MBCODE-308 

14D 19 -ENDM XX 

14D 11 308: 

14D 1 -SHOW  MEB 

14D 1 MAILBOX_MSG_TYPES ; Generate dispatch table 

14D «WORD RCV_HELLO-30$ 

14D «WORD RCV_ICU_UCME-30$ 

14D -WORD RCV_BYEFORNOW-30$ 

1409 «WORD RCV_BADCODE-30$ 

1408 «WORD RCV_DOSET-30$ 

1400 eWORD RCV_ISSET- 

14DF -WORD RCVDOCLEAR-30$ 

14E1 «WORD RCV_ISCLEAR-30$ 

14E WORD Sava IN TEDL Oce~ 308 

14E WORD pev-regnes 0$ 

14E -WORD RCV_ME A ig: aa 

14E9 WORD pevanLOstyng $ 

14EB -WORD RCV“BYEBYE-30$ 

14ED Sie -NOSHOW MEB 

14ED 15 

14ED 318 40$: 

14ED 2817 RCV_ME2MEDONE: ; Should never get mail with this code 
14E 518 MOVZWL ieee ; Save stuff... 

14F 81 MOVL SP,R ; «that DO_FAO_SIGNAL... 

14F5 2820 SUBL2 (SP),SP : ...will overwrite at AST Level... 
14F8 2821 mOovC (R7) ,BUFFER, (SP) ; «+ewhich could be in progress 

1OFE 2826 MOVAL BAD_MSG_TYPE,RO , 
150 BSBW DO_FAO_ SIGNAL ; Warn that we have junk in our mailbox 
1506 4 MOVC3 (R7),(SP),BUFFER ; Restore possible old message 

150¢ 5 MOV R7,SP : That done, restore the stack... 

150F 8 § POPR #*M<R7> 3 «sand... 

151 8 MOVW R7,BUFFER_PTR ; ...other stuff which was clobbered 
131 : 3 ;BRW EXiT_FROMRCV ; Fall into common routine for exit 
151 0; 

13] 1 ; ALL the routines dispatched via the above CASEW will exit through this Little 
151 ; 3 routine. 

151 : 

151 4 EXIT_FROM_RCV: 

131 5 $O1O_S CHAN = MA_W_SPRMBCHN(R6),- ; Read my mailbox... 

151 § FUNC = #I0$"READVBLK,- 3 «.-whenever someone writes to it 
151 I0SB- == AST_ABISB,- 

151 3 ASTADR = RCVAB_AST,- 

151 ASTPRM = R6,- 

131 40 Pj = AST_MBBUF ,- 

151 41 P2 = #MB_K_END 

153F 42 RET 


GH) |e 
| 
| 
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154 44 RCV_HELLO: 
154 45; ~ 
154 ‘8 ; Some processor is (re-)starting the test and wants to say hi. It's sent 
154 47 ; the date-time quadword that appears at the end of my a area in the 
154 ‘3 ; interprocessor global section. If that turns out to be incorrect, let the 
154 49 ; prorevert know Y way of a return mailbox. If the date-time is correct, 
154 29 ; reply with a different message - saying and expect the processor to 
154 3 acknowledge = message. There is some code which will be common to either 
: : 26 ; path; get that out of the way first. The code paths rejoin Later. 
110A ce 90 154 54 MOVB AST_MBBUF+MB_B_SENDER,= ; The proc which sent now will receive 
110B' CF 1344 38 AST-MBBUF +MB~B- RECEIVER 
C1AC C6 90s—:«*1547 § MOVB MA_B_MYPORT( ~ ; I am the sender 
TOA" CE 1348 5 AST_ABBUF+MB_B_ SENDER 
0258 C6 28 154 28 MOVC3) MA_G_COMMBNAM(R6) ,- ; Form the logical name... 
113D'CF 0 : C6 155 5 MA_T_COMMBNAM(R6),AST_MBNAM ; ...0f the other processor's MB 
1135°CF 0 C6 dO 155 60 MOVL MA_Q_ COMMBNAM(R6) ,AST_MBPTR ; Form descriptor of... 
1139°CE §«61730°CF §=DE «6155F «2861 MOVAL AST_ABNAM,AST_MBPTR+ j_se-the logical name 
50 aie 4 1266 86 pov. re BOGUF +MB_G_RECEIVER RO : Include the port number... 
FF AS) =6550)— («90 138 864 MOVB RO,-1(R3) 3 «sein the mailbox name 
15 865 SCREMBX_S CHAN = AST_MBCHN,- =; Establish a Link to other proc's MB 
157 508 LOGNAM = AST_MBPT 
$7 i $ FO 1288 +t INSV yy POOUr +AB_B_RECEIVER. = ; Set up common parts of REQIDT... 
57 O1EC C6 90 1330 59? MOVB MA_W_UNIT(R6) ,R7 ; ...and/or status check, below 
1332 th ; End of common code 
O1A4 C6 =—08)S—_ 29—s«1595 Bre CMPCS #8,MA_Q DAYTIME(R6),- ; Did I get passed my date-time? 
110F "CF 159A 87 AST _MBBOF+MB_K_MISC 
17 13 «159d 74 BEQL ; BR if I did 
{i0e' ct 9C ior 18 ROTL AST _MBBUF+MB_B_RECEIVER,- ; I got passed trash, so... 
01BC C6 35 c8 12a ery BISL2 RO,MA_L_SBADCODE(R6) : pose the error 
04 B60 15AA 8 MOVW #mSG_BABCODE,- ; Set up the reason for the mailbox 
110D°CF 15AC 287 AST_ABBUF +MB_W_WHY 
7 .UWwSCOCSYO % FO 15AF +t INSV #MSG_BADCODE;#16,#16,R7 ; Finish info for status check, below 
6 11 1388 1 108 BRB 208 ; Rejoin common code 
02 8B0 1288 F : MOVW #MSG_ICU_UCME,- ; The reason for the mailbox 
110D'CF 158 4 AST_ABBUF+MB_W_WHY 
115C°CF FAOAIFOO ef DO 1588 : 5 MOVL #ic0 UCME_TIMEOUT,AST_MBDAY ; SSETIMR parameters - DAYTIM... 
1160°CF 0 D2 154 § mCOML) «6: #0, AST_MBDAY+ 3 see 
2... 3 13¢9 INSV MSG ICU_UCME.#16,#16,R7 — ; ...and REQIDT (also ststus check) 
15CE 8 SETIMR_S DAYTIM"= AST_MBOAY,- ; We'li need a reply for this one 
13CE ASTADR = MB_TIMEOUT_AST,- 
1 cf 90 REQIOT = R 
{joe' ce 9C 12E +4 ROTL or MBBUF +MB_B_RECEIVER,- ; We're going to reply... 
O1EO C6 $5 c8 1367 38 BISL2 ee MA_L_ICU_UCME (R6) ; «--S0 log that we expect a return 
35 3¢ 208 7 BRB 208 : Rejoin common code 
15EC 38 $Q10_S CHAN = AST_MBCHN,- 5 Reply to the hello 
15EC 289 FUNC = #108 WRITEVBLK! [OSM_NOw,- 
15EC 38 10SB = AST_ABISB,- 
15EC 289 Pi = AST MBBUF ,- 
15EC 2900 P2 = #MB7K_END 


vOa~000 Nai (box Recei at Set Eee mrad" USERIREE BO:GT9R ANCA Raeea YOL=EDS agen PORE 9, 


3; oD 1 ef PUSH R7 ; Check completion status... 
FE1S CF 1 FB 1611 ei CALLS #1,QI1OMB_AST_CHECK : »»-0f the $010 
1 He SDASSGN_S CHAN ="AST-MBCHN : Free our hold on the mailbox 
FEF3 162 BRW EXIT_FROM_RC ; Exit via common routine 
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Via Mailbox Received AST Routine i ety 8: gf: 32 UETPSY.S Yea oe YMA 7800.MAR: 1 . (43) 
16 gf RCV_ICU_UCME: 
16 3 8 : A processor to which we've sont a hello Sena’ th Liked what we sent and is 
16 ; trying to tell us so. If we did indeed send the message, let the other 
1? I ; processor know that we received its ma 
50 110A'CF 9A 16 31 : MOVZBL A T MBBUF MBB SENDER.RO ; Find out who sent us a message 
09 50 69 6 ge 1 A giz ah PALL HELLO(R6),1 $° : BR sf we expected it... 
; ..-else. 
1¢8 Cé 5 19 2 31? 108 BISL2 ROMA. _L_NOCAUSE (R6) i «ee log the error 
2 19 01 FO 16 3 319 : INSV #MSG_HELLO,#16,416,R7  ; oye. a reply to our hello... 
57 08 o% 110A'CF §=6FO 16 f 318 INsy Asi ABBUF ners B, SENDER. #8" #8. OTs ine 
O1EC C6 «890 = =—164 31 v8 A_Q_U i oeee 
1968 4 9 SCANITIM § AmEOtDT 9 i «e+SO we need not worry time out 
11 ea ee 90 1688 9 § MOVB AST_MBBUF +MB_B_SENDER,- ; The proc which sent now will receive 
110B' CF 1659 29 AST-MBBUF +MB-B RECEIVER 
OIAC C6 90 165 924 MOVB MA_6 MYPORT(R6J,= ; 1 am the sender 
A308 ef 166 925 AST_ABBUF +MB_B_SENDER 
8s 8 C6 28 166 % § MOVC3 MA_O_COMMBNAA(R6) ,- : Form the logical name... 
113D°CF 0260 C6 166 9 MA_T_COMMBNAM(R6) , AST_MBNAM ; -+-Of the other processor's MB 
1135°CF 0958 C6 DO 1660 2928 L MA_Q_COMMBNAM(R6) ,AST_MBPTR ; Form descriptor of... 
1139°CF 113D°CF 43 1674 2929 MOVAL AST_MBNAM,AST_MBPTR+4 j_«+-the logical name 
50 W108 cr %0 1978 9 pseu Ast yee F+MB_B_RECEIVER,RO ; ; Include the port number... 
FF AS 5 0 1863 9 ‘ MOV -1(R3) t lscin the mailbox name 
1687 933 SCREMBX +, EWAN = AST NB CHN -  ; Establish a Link to other proc's MB 
= 
BO 169 3Re MOVW enc ABYEFORNOU ; The reason for the mailbox 
110D'CF 16A 936 AST Y Reeur he oo Y 
16A 937 $Q10_S try 2 a to the hello 
16A3 2938 2 alos RI TEvaLK! 108m, NOW 
16A 939 Tose = T_ABISB, 
18a3 594 + Ash ban 
7E O03 60 19C6 ac8 MOV #MSG BYEFORN Ow.- Set up QIOMB_AST_CHECK parameter... 
FE OOtEE CH 90 Jace. Soue MOVE A Miter RECEIVER, (SP) 0. 
FOS3 CF O01 FB 1858 945 CALLS #1 ~OTOMB T_¢H WEEK. : Check $010 completion status 
1608 346 SDASSGN S CHAN = “AS “MBCHN : Free our hold on the mailbox 
FE31 31 «1664 294 BRw “Exit t ROM_RCY : Exit via common atten 
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185 RCV_BYEFORNOW: 
16E : We've osenangee gessages with @ processor to say that we can see each other 
! E ; and trade data via the interprocessor global section. Clean up. 
0 10A'CF 9A 16E7 : MOVZBL AST_MBBUF+MB_B_ SENDER RO ;_Find out who sent us a message 
09 ie0 £6 g4 i 4 5 BBs¢ RO,MA_L_ICU_OCME(R6),10$;'BR if we expected it... 
#1, ; «else... 
1c8 C6 cs ! 4 i 108 BISL2 RO,MA_L_NOCAUSE (R6) ; «log the error 
| m= 10 02 FO 16F : INSV #MSG_ICU_UCME ,#16,#16,R7 ; We've gotten a reply to our reply... 
57 08 08 110A"CE i 1200 960 INSV _AST_RBBUF#MB.6 SENDER.#B,#8,R7 5 °°. te se, 
f OC C6 90 1 MOVB MA_Q _UNIT(ROJ,R § ees 
1706 306 SCANTIM_S REGIDT = R7 3 «+80 we need not worry time out 
FDOFE 31 1717 2964 BRW EXIT_FROM_RCV ; Exit via common routine 
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ed AST Routine 
$F RCV_BADCODE: 

; Some processor thinks we sent it a bum messsage. 

INSV #MSG_HELLO,#16,416,R7 

INsy AST ABBU r+ +B ° pieNOER. a8. 


MOVB MA_Q_UNIT( 
SCANTIM_S REGIDT = Rahs 


Log the error. 


ot a one to our hello... 
3 2.380 we need not worry time out 


f we mera 


é MOVZBL nO. AA MBBUF +MB_B_SENDER,RO ; Find out who sent yl a B seusege 
BESC L_HELLO(R6),10$ ; “BR Ri it 
ROTL tT 5 ¥ 
BISL2 f mA “L_NOCAUSE (R6) ; **fog t 

S ses BRB 20$ ; 

1 —-ROTL «=—Ss AS T_MBBUF+MB_B_SENDER,- ; We sent trash... 

208 BISL2 RO.MA_L_RBADCODE (R6) 3 «.-80 log the error 

225 Oo EXIT_FROM_RCV : Exit via common routine 


Pave 


: No need ~ tos BADCODE if not our fault 


U 
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e008 Mailbox Received AST Routine ets 1 89 ate 4 UETPSY.S y SRE IGE YRA7SOO.MAR: 1 (46) 
175A 3987 RCV_DOSET: 
175A 2 § ; Some processor wants us to set a bit in the shared common event flag cluster. 
\f . 3 ; Set the bit and reply. 
175A $3 SASCEFC_S whee = #COMEF _E ; Associate with interprocessor cluster 
175A 299 AME = mA 2 COREE NAM (RG 
90009060 oo 4 gf 994 ADDL3 sCOREE EFN ; Figure which bit to set in it 
57 110F CF 17 995 T_MBBUF +MB_ K_MISC,R7 
177 238 SSETEF_S Mtr ree R7 3; Set the requested bit 
4i9a' ce 91 Vf 4 CMPB As gMBRUF oN, B, SENDER, - ; Did I ask myself to sot the bit? 
6p 13 5 338 BEQL 10 ; BR if so - I'LL expect cluster on return 
1g 5 108 SDACEFC.S EFN = #COMEF_EFN ; Release the cluster 
179 
VIOA'CF §=6©90 «+179 ‘ MOVB AST_MBBUF+MB_B_SENDER,= ; The proc which sent now will receive 
110B' CF 179C 3004 BBUF +MB-B- RECEIVER 
O1AC C60: 90s«*1: 798 09 MOVB MA_6_MYPORT(R6J,- : 1 am the sender 
110A'CF 17A3 06 AST_ABBUF +MB_B_SENDER 
110D'"CF 06 0 17A6 38 MOVW #MSG_ISSET,AST_MBBUF +MB_W_WH Say that we've set the bit 
0258 C6 28 17AB 3008 MOVC3 MA. 0 COMMBNAM (RG) . = : horn the leetcel nome... 
113D°CF 0260 C6 17AF 3009 MA_T_COMMBNAM(R6),AST_MBNAM ; ...0f the other processor's MB 
1135'°CF 0 rs C6 DO 1785 3010 VL OMMBNAM(R6) ,AST_MBPTR ; Form descriptor of... 
1139°CF ©113D°CF DE 178¢ 011 MOVAL AST_ABNAM,AST_MBPTR+4~ .sethe logical name 
50 a : 173 oe nov font B_RECEIVER,RO ; * include the port number... 
FF AS 50 90 17CB S12 MOVB R3) ; in the mailbox name 
17CF 3015 SCREMBX_S BO enANY = AST -MBCHN, = 4 Qeeeblich @ Linh te ether proc's MB 
17CF 618 “Pog GNAM = AST aren’ 
17E6 4 $Q10_S cHAN = AST_MBCH Let the other proc know... 
1766 3018 UNC = #108 Sr evxes on NOW, - 
17E6 3019 OSs = AST_ABISB > Teethat we've set the bit 
17E6 0 Pl = AST- “MBBUE, = 
17E6 1 p2 = #MB"K_END 
7E 06 BO 1809 0 § MOVW #MSG_ISSET>-TSP) Set up QIOMB_AST_CHECK parameter... 
7E 110B'CF 90 1306 0 MOVB AST_ABBUF +MB B_RECEIVER, gp) eee 
7E O1EC C6 «690 =— 1811 024 MOVB MA_Q UNIT(R6) ,=(SP) 
FC10 CF O1 FB 1816 3025 CALLS #1 QTOMB_AST_CHECK 3 Check $aio completion status 
1818 0 6 SDASSGN_S CHAN ="AST-MBCHN : Free our hold on the mailbox 
FCEE 31 182 0 BRW “EXIT_FROM_RCO ; Exit via common routine 
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182A y RCV, ISSET: 
185A ; 
182A : set. We really don't need to do anything about that here, but the 
182A 3 Syachreneys nat testing Hi ing fo common event flag cluster needs to know 
182A 4 ; and is hi pernet ng while “e t °, be told. Let the synchronous code know 
182A 5 ; that the bit een set b yi ng the synchronous mailbox buffer to the 
! . § 3 extent of yA the reeeen = he mailbox. Awaken the synchronous code. 
180A g 7 MOVZBL A T_MBBUF +¢MB_B_SENDER,RO ; Find out who sent us a message 
182F BBSC -MA_L_DOSET(R6) 108 : "BR if we expected it... 
1 3 re ROTL i ose -else... 
1 4 BISL2 oMA‘L “whens i ose .log the error 
} 75 $s 108 BRWw exit FRO 3 Doing the rest could screw us up! 
1841 44 INSV 4 Doser, #16,416 ; We've gotten a reply to ou 
rt] re ANSy a tt ye astno 8.48,R7 ; ...request for setting’ an EF 
: 36 39 SCANTIM_ 4 Aapatnt ig AR <d 1.80 we need not worry time out 
182 049 MOVW i Iss ; Change the reason for the mailbox... 
185F 3050 NCA TABBUE SMB. W_WHY 3 «ein the synchronous buffer 
1862 3051 SWAKE_S > Get the synchronous code moving again 
186D 3052 BRW EXIT_FROM_RCV Exit via common routine 


| 
A processor has let us know that a bit which we wanted to be set has been 
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tet Mailbox Received AST Routine eee 9 90:95:83 Ue TPSY . SAE IVE THA7S00.MAR: 1 . (48) 
187 RCV_DOCLEAR: 
187 é “Wag 
187 § ; Some processor has requested that we clear a bit in the common event flag 
: if ; cluster. Clear the bit and reply. 
187 5 SASCEFC_S EFN = #COMEF EFN,- ; Associate with interprocessor cluster 
187 NAME = MA_Q_COMEFNAM(R6) 
900000 Rk Se mw ADDL3 #COMEF_EFN,- ; Figure which bit to clear in it 
57 110F "CF 1888 : AST _MBBUF +MB_K_MISC,R7 
1 + ° SCLREF_S EFR = R7 ; Clear the requested bit 
110A'CF 91 1898 4 CMPB AST_MBBUF+MB_B_SENDER,= ; Did I ask myself to clear the bit? 
O1AC c6 189C $9 MA_B_MYPORT(R6Y 
D 13 189F § BEQL 0$ ; BR if so - I'LL expect cluster on return 
: Al rt 108 SDACEFC_S EFN = #COMEF_EFN ; Release the cluster 
18AE +) 
T10A°CF 90 18A $96 MOVB AST_MBBUF +MB_B_SENDER,=- ; The proc which sent now will receive 
110B'CF 1 4 AST-MBBUF +MB-B- RECEIVER 
O1AC C6) 90s te MOVB MA_B_MYPORT(R6J,- 3; 1 am the sender 
110A'CF 1889 307 AST_ABBUF +MB_B_SENDER 
08 B60 188C 74 MOVW #MSG_ISCLEAR?- ; Say that the bit is cleared 
110D° CF 18BE 75 AST_ABBUF +MB_W_WHY 
0258 C6 28 18C1 76 MOVC3 MA_G_COMMBNAA(R6) ,- ; Form the logical name... 
113D'CF 0 $9 C6 18C5 3077 MA_T_COMMBNAM(R6),AST_MBNAM ; ...0f the other processor's MB 
1135'CF 0258 Cé6 pO 18C 078 MOVL MA_Q_COMMBNAM(RG6) ,AST_MBPTR ; Form descriptor of... 
1139°CE 113D°CF DE 18D2 3079 MOVAL AST_ABNAM,AST_MBPTR+ : seethe logical name 
50 lay 4 3 4. BBY yt. AST NGGUE +M6_B_RECEIVER.RO : Include the port number... 
FF AS 50 90 18€1 OB MOV RO =-1(R3) 3 «2-in the mailbox name 
18€5 308 SCREMBX_S CHAN = AST_MBCHN,- =; Establish a Link to other proc's MB 
18E5 Hf: LOGNAM = AST_MBPTR 
18FC 3085 $Q10_S CHAN = AST_MBCHN,- ; Let the other proc know... 
BFC 086 FUNC = #108 WRITEVBLK! 10$M_NOw,- 
18FC 30 10SB = AST_ABISB,- 3 «s.that the bit is cleared 
18FC 3088 Pl = AST MBBUF .- 
18FC 3089 P2 = #MB-K_END 
191F 4 MOVW #MSG_ISCLEAR?-(SP) ; Set up QIOMB_AST_CHECK parameter... 
19 $ 91 MOVB ST_ABBUF +MB B_RECEIVER,-(SP) ; ... 
19 O36 MOVB MA_Q UNIT(R6),=(SP) er 
192¢ 309 CALLS #1-7QTOMB_AST_CHECK : Check $010 completion status 
1931 3094 CHN ; Free our hold on the mailbox 
193D 3095 ; Exit via common routine 
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97 RCV_ISCLEAR: 
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A processor has let us know that a bit which we wanted to be cleared has been 
cleared. We really don't need to do anything about that here, but the 
synchronous cose testing th gheree common event flag cluster needs to know 
and is hibernatin 

that the bit has 
the extent of chang 
code 


2 while waiting to be old. Let the synchronous code know 
on cleared by modifying the synchronous mailbox buffer to 
ng the reason for the mailbox. Awaken the synchronous 


MOVZBL AST MBBUF+MB_B_SENDER,RO ; Find out who sent us a message 

BBSC RO,MA_L_DOCLEAR(R6),10$ ; BR if we expected it... 

ROTL RO,#1,R 3; else... 

BISL2 RO,MA_L_NOCAUSE(R6) 3; .-.log the error 

BRW EX{T_FROM_RCV ; Doing the rest could screw us up! 

INSV #MSG_DOCLEAR,#16,416,R7 ; ye ye gotten a reply to our... 

INSV AST_MBBUF+MB’B SENDER, #8,#8.R ; sesPequest for clearing an EF 
MA_O_UNIT(R6),R ; 


MOVB 

SCANTIM_S REGIDT = R7 3 «+.SO we need not worry time out 

MOVW #MSG_ISCLEAR,- ; Change the reason for the mailbox... 
SYNCR_MBBUF +MB_W_WHY i «..in the synchronous buffer 

SWAKE_S ; Get the synchronous code moving again 

BRW EXIT_FROM_RCV ; Exit via common routine 
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3 RCV_INTERLOCK: 


—_ 


PDD PPPs > Be Be eB BE WINN WII pnnononnund 


RO OONAU EWN 9 ODNOAU EWN OOO NOUE WO OONOUNS 


Some processor wants to test aenery sapor veer tng instructions. A valid test 
depends on all processors cooperet ng in real time, in order that there be a 
chance that there will be a conflict in accessing a Senery location. When 
we receive an interlock request mailbox, we assume that the requesting 
rocessor has already begun the test. fn order to synchronize, we have to 
©9 n the test on this Py ssor as soon as poss’ole. This means 
nterrupting whatever else is going 9 synchronously and start ng this part 
of the test. AST delivery of the mailbox does he first part. However 
the interlocking test runs for several real seconds and we'd have troubles 
with staying at AST level that long because it etfectively disables ASTs 
which m ght wey | from processors connected to other shared memories. To 
allow interruption of synchronous testing, but not stay at AST level, we 
cheat somewhat: we use an undocumented system service te dismiss the AST 
and then call the test routine. However, one of those sucerrupy rene 
could be from a processor on another memory wanting to start this test on 
that memory! That would be pointless; the first test would be stopped dead 
while the second ran and then the first test could run with no competition. 
To prevent that sort of thing and to pass and save vital information, R6 
(the pointer into UNIT_LIST we receive via ASTPRM) is saved in a location 
which is accessed by the PC and not by indexing through UNIT_LIST or in a 
oc 3 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


interprocessor global section. This ation used as a lock. 
1164°CF D5 TSTL INTERLOCK_SAVED_R6 ; Are we being called recursively? 
03 13 BEQL 10$ ; BR if not 
FB89 = ss 31 BRW EXIT_FROM_RCV ; Don't play ball if we are 


10$: 
$Q10_S CHAN = MA_W_SPRMBCHN(R6),- ; Reset to allow mailbox reads... 
FUNC = #IOS"READVBLK,- 3 ..-during the interlock test 
10SB_ = = AST_MBISB,- 
py BS ae ca RCVAB_AST.~ 


P} = AST MBBUF ,~ 


— St et I SS tS SS SS SS SS SS SS SS 


8F # 
1164'°CF 56 00 B6 MOVL R6,INTERLOCK-SAVED_R6 =; Prevent recursion and save info... 
BOO te 00 FB 19 CALLS #0,G*SYSSCL 3 ...because the AST is dismissed 
F730 CF O00 FB 19C¢ CALLS #0, INTERLOCKING _TEST ; Perform the interlock test 
1164°CF D4 19¢ CLRL INTERLOCK_SA ; Allow us to thrash any memory again 
04 19¢B 3 RET 3; Rejoin mainline code 
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! 35 } : RCV_ME2ME : 
1 35 1 § > We've tested that it's possible to send mail to our own processor. To let 
19¢ 1 3; the Syne nronous code know that we've been successful, change the reason for 
19CC 3168 ; the mailbox (MB_W_WHY) in the synchronous mailbox buffer and wake up the 
: 5 12 3 Synchronous codé, which has been waiting for us to do exactly that. 
57 10 10 OA FO 1 ce 171 ° INSV  #MSG_ME2ME,#16,416,R7 _ ; We've gotten our own mailbox.. 
57 08 p Qiac C6 FO 1901 317 INSV MA_B-MYPORT(R6S .#8.48,R7 ; ... 
1EC C6 1908 317 MOVB = MA“W"UNIT(R6),R? Sees 
19e8 103 SCANTIM_S REGIDT = R7 3 «eeSO we need not worry time out 
0B BO 19€ 128 MOVW #MSG_ME2MEDONE ,- ; Change the reason for the mailbox... 
10B3' CF 19EA 317 SYNCA_MBBUF +MB_W_WHY 3 ...in the synchronous buffer 
19ED 3178 SWAKE_S ; Get the synchronous code moving again 
FBID = 31 19F8 3179 BRW EXIT_FROM_RCV ; Exit via common routine 


6 
“SEP- :27:39 VAX/VMS M ge 
VAX/VMS UETP DEVICE TEST FOR MA7BO 1 SEP-19 4 0: ?: MAR: ,* (3, 
vt Mailbox Received AST Routine g-8EF 138 $0: 95:83 UETPSY. SRE Cree RAT BOO. 
13re ! 1 RCV. ILOSTU: 
: ith which we were communicating thinks we 
13re i $ : A Bane lay BB aig oy « ~ interprocessor lLobal —— b Ag = et. 
19FB ! 5 available processors has been cleared! Log the error and rese . 
9C 13¢6 ! 5 ; ROTL a" MBBUF +MB_B_SENDER,- ; We were too slow... 
3 «+80 log the error 
8 1406 ; aie 8 ma’ O.MALL RILOSTUCRE) 3 Apa: te start of, henge oly s pao GS 
é ma av eee 
per Abe 138 — nace -B. Basia ply | PEM 108 ; ont others ce re really here 
31 1At8 192 _ BRw EXIT_FROM_RCV ; Exit via common routine 


| 


UVETMA7800 VAX/VMS UETP DEVICE TEST FOR maven ° 16-$ Page 81 
vba Mailbox Received AST Routine $73 as SI 88 98: 8 LOE TPSY PSY.S Bae sce YRA7B00. MAR; 1 . 83) 
1; “sig _BYEBYE: 
: Some processor is Lae Shag execution. We'd Like to get consistent so that | 
: there is minimal impact due to its going away. In particular, we no longer 
: a any mailbox messages from that processor. 
Sal . 9C ROTL af MBBUF +MB_B_SENDER,- ; Figure out who's going awa, 
01DC CA BICL RO,MA_L_HELLO(R6) ; We no longer expect any replies... 
160 € CA BICL R *MATL-1CU UCME (R6) i osee 
a a BIets AP-muctPerteanthey fo 
57 08 : fFoater F INSV Ret MBB0F +MB _B SENDER, 48, ‘9’: R7? ; Insert stuff that 
O1EC (69 MOVB mA _O_UNIT(R6J,R talowill be the same for all SCANTIMs 
: | we SV #MSG_HELLO,#16,416,R7 ; Cancel critical timer requests... 


N 
SCANTIN. $ REGIDT = R7 ; ««-for the departing processor 


NSV #MSG_ICU ~UCHE o#16,8416,R7 


57 10 10 02 F0 
CANTIM_S REGIDT™= 


SESb>>>E>>>>>FPE>>>>>>> >> E E> >> >>> >H>HE>HEE>E>H>r> 


NOUS WAN HO OONAU EWN OOONOA UE WIN O ODNAUE WN O 


WAAL POMOMOMOMOFOFUMIFY > — 2 2 2 2-2 2 BOOOOOOSOOOO 


1168°CF ODD PUSHL “TQC ; Save it for Later comparison 
sa? oe a ee seey #MSG poser. #36. "6. R7 
CANTIM_S REGID 
S$GETJPI-S teMLST = GETUPI _ITMLST ; Get the new timer queue count 
8E 1168°CF D1 CMPL “TQCNT,(SP)+ ; Has it changed? 
0B 13 BEQL 10$ ; BR if not = no request outstanding 
SWAKE_S ; We have a SHIBER pending 
ws 10$: 
AAB a Me _S_ITMLST = GETJPI abies x Get the current timer queue count 
1168°CF DD 1ACO USHL “TQCNT Save it for later comparison 
57 10 10 O07 FO 1AC4 TNSV #4SG DOCLEAR #16,416, R7 * 
AC9 SCANTIM_S REG 
AD4 GETJPI_S ITMLST = GETJPI_ITMLST ; Get the new timer queue count 
8E 1168'CF D1 AE9 CMPL TOCNT, (SP)+ 3 "Has it changed? 
0B «13 ni}: BEQL 208 ; BR if not - no request outstanding 
AF SWAKE_S ; We have a SHIBER pending 
ae 208: 
FAIA 31 1AFB BRW EXIT_FROM_RCV ; Exit via common routine 
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-SBTTL Mailbox Timer Expiration Routine 


3++ 
; FUNCTIONAL DESCRIPTION: 

his routine runs when the timer goes off to indicate that another 
processor hasn't replied to a mailbox. 


CALLING SEQUENCE: 
Called via AST at SSETIMR expiration. 


INPUT PARAMETERS: 
O4(AP) = .BYTE shared memory unit number (MA_W_UNIT) 


-BYTE other processor's port on that memory (MB_B_RECEIVER) 
-WORD reason for sending mail (MB_W_WHY) 


IMPLICIT INPUTS: 
NONE 


teach 


=" 
> 
nal 


DDOAOW— } NUT HAQCOMMmmmmmmmmmmmmmmmmmememmemmmmmmmmmemen 
TS NT oN 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


Bete Ge Se Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Se Se Se 


MB_TIMEOUT_AST: 
. WORD 


OFFC “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Entry mask 
6D  IFI7°CF ODE MOVA SSERROR, (FP) ; Set up AST Level exception handler 
56 O1DB'CF 000001D8'SF C1 ia ADDL$ #UNIT_LIST,UNIT_LIST,R6 : Must search for correct node 
O1EC C6 «O04 AC 91 CMPB SOC APD AAU WET ERS) ; Match correct memory? 
OF i EQL 0$ ; BR if we have 
56 6 C ADDL2 (R6),R6 ; Point to the next one if we haven't 
56 000001D8'8F 01 CMPL #UNIT LIST R6 : Searched all possibilities yet? 
CC 612 BNEQ 10$ ; BR if not - we're OK 
0024 = 31 208 BRwW 40$ ; BR because of bad REQIDT 


50 01 OS ac 9 ROTL OS(AP) ,#1,R0 Supply a mask for those timeouts... 
«»ewhich need to clear a bit... 


++eiM an event expected longword 


MEW (OO OODNAUE WIN $9 OD NA NEW 0 OONAUNE AN OODNOAOUE W000 


BWOODWDOWDWDOIOTUOIUONrrr rrr rrrrrrrrrrrrrrrrrr>r>r>r>r>r>r>r>,r 
POPOPOPOPOPY — | = D0O000 71778 Fn nn nn nn nn nn nn nn nn nn 


aa ak a ak a a at a ss a 2 a a a 


00090909 0908 SI NI NI SINS SINS NSIS NO AAA AAOOOOUIIUIIU! 


| 
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vi date Mailbox Timer us B. on Routine ae ets 9 90:95:83 UETPSY 
oc 01 06 AC AF ft 


U M 
T $ 
18 7 CASEW O6(AP),#1,#MAX_MSG_TYPE ; Dispatch ed on message type 
18 8 «MACRO X MBCODE DUMMY 7 A mocre “i define dissatch sdérese 
18 «WORD TMO_'MBCODE-30$ 
18 0 -ENDM =X 
18 91 30$: 
18 9 -SHOW MEB 
18 9 MAILBOX_MSG_TYPES ; Generate dispatch table 
107" 1B -WORD =TMO_HELLO-30$ 
10F* 18 «WORD TMO_ICU roe Seka | 
O1A' 1834 «WORD TMO-BYEFORNOW-30$ 
1A’ 18 6 .WORD TMO"BADCODE-308 
FD: 18 .WORD TMO-DOSET- 
A’ 1B3A .WORD TMO-ISSET- 
OF4* 1B3C «WORD TMO_DOCLEAR- os 
O1A' 18 «WORD TMO_ISCLEAR- ; 
O1A’ 1B4 «WORD a OL 0$ 
OF9* 184 » WORD a a. Lia $ 
O1A’ 1844 ~ WORD TMO_ME my pone. 0s 
O1A' 1B46 «WORD TMO_ILOSTU-30$ 
001A" 1848 .WORD TMO_BYEBYE-30$ 
| Pa yr ane .NOSHOW MEB 
1B4A 38 «MACRO X MBCODE,SECONDS ; A macro to define unused Labels 
1B4A 9 -IF B SECONDS 
1B4A 98 TMO_"MBCODE = 40$ 
4 bp — sENoC ; 8 SECONDS 
1B4A 01 MAILBOX_MSG_TYPES ; Generate labels 
O6D2°CF DF IB4A 8 PUSHAL BAD_REQIDT ; If we reach here... 
DD 1e6k 0 PUSHL #1 ; «eewe got a phoney AST 
0000000'GF. OS FB 1Bs6 8308 mt eno 
o * a 
pig : 1620 8 BRW EX{T_FROM_TMO ; Fall into common routine for exit 
i) 
1B5D 8 ; 
1B5D $8 ; ALL the routines dispatched via the above CASEW will exit through this Little 
1820 1 3; routine. 
185) I EXIT_FROM_TMO: 
06 AC OA 861 185D 1 cAPw #MSG_ME2ME ,06(AP) ; Was this a single processor message? 
14 13 1861 14 BEQL 0$ ; BR if so - GS may not be there 
06 AC Bi 186 15 CMP = =86#MSG_ME2MEDONE,O6(AP) ; Catch pathological case 
—€ 13 186 18 BEQL ; BR if so = again GS may not be there 
57 06¢¢ C6 po 1B69 1 MOVL MA_Q_COMGSRAD(R6) ,R7 ; Point to start of global section 
58 AC A 186 18 MOVZBL Tl 
00 24 A7 58 €E7 +4 3 108 BBCCI R8,GS_L_AVAILABLE(R7),10$ ; Assume receiver processor went away 
1A 90 1877 1 MOVB MA_B_MYPORT(R6),- ; Send a MB so saying - sender... 
it Avr “ 1878 : sat A T_ABBUF +MB_B_SENDER pay : 
= Py ecel Vv eee 
11 CF 18 i 4 AST_MBBUF +mB B_RECEIVER ; ...(the one we think is gone)... 
O1EC C6 «6990 «(1884 5 MOVB MA_Q_UNIT(R6),= 3 ..ethe shared memory involved... 
T10C" F 1B88 é ST_ABBUF +MB_6_UNIT 
6¢ B0 18 MOV #asG_ILOSTU,= 3 «e.the reason for the mailbox... 
110D°CF 1B8D AST_ABBUF +M6_W_WHY . 
6 AC BO 18 MOVW - 3 ...and what we originally sent 
110F "CF 189 0 AST_MBBUF +MB_K_MISC 


ener 00 


Nal(box Vimer Expirat 


28 1896 


OwWwo0°o 
oorm 
— 
Oomw 
or> 


—> —S —) — 8 - 2 
QOOOOOOoOWWWWVIOIIoD 
———§ OONNOVVVTTJ 
ONMNNODOwooooo0wowovrom 


WRI O OONOA VFS UP - OWOONOAUE 


ST ot ot et at et et et te 


ST FOR MAT 
on Routine 


MOVC3) MA_Q 


MOVL 


MOVAL AST ne Sw 


MOVZBL OR 
BSB 


LO 
MOVB AST _MBBU 
NITC 


ST-MBCHN 
T_MBBUF +MB_B RECEIVER, 
BISL2 RO, MA_L_SILOSTU(R6) 

RET 


"SrSEP Sige Ba:95:88 FORT PSY. SRESGevoA7b00.man:1 2% (86, 


3; Form the logical name. 
»+-Of the other processor’ s MB 


AST “MBPTR ; Form descriptor of... 


««ethe logical name 
Include the port number... 


: llim the mailbox name 
; Establish a Link to other proc's MB 


Let the other proc know... 


ak! 108" NOW 
: =. thet its bit is cleared 


a + 43 up QIOMB_AST_CHECK parameter... 
b Ghee ock $aio0 cenptetion status 
r 


e our hold on the mailbox 
Processor didn't respond... 


; «80 log the error 
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nH Mailbox ; mer Expiration Routine §7 SE e-138e 90:95 582 UE They. eRe UEYRA7BOO MAR: 1 - (8) 
1C1D 53 
1C1D § ; Save some code on this page by Esk ing advantage of the simplicity of these 
1010 ; routines. DOSET, DOCLEAR and ME2ME need to awaken us from hibernation. 
1C1D 3; The others need only say that certain events are no longer expected; 
1510 i everything else that needs to be done is handled by the common exit routine. 
ae ae 
1518 TMO_DOSET: 
1510 i ; Some processor didn't set a bit in the shared common event flag. 
O1ES C6 30 CA 1538 BICL2 RO,MA_L_DOSET(R6) ; Don't expect flag to be set 
0 11. «1C¢ 3 BRB COMMOR_QAKE_TMO 
1654 
\¢ 2 7 TMO_DOCLEAR: 
\f 2 7 : Some processor didn't clear a bit in the shared common event flag. 
O1E8 C6 «650 ) «6(CA C1024 + Be BICL2 RO,MA_L_DOCLEAR(R6) ; Don't expect flag to be cleared 
1029 4 7BRB COMMOR_QAKE_TMO 
13 
1 g 8 TMO_ME2ME : 
1029 1: I couldn't send mail to myself. 
1659 8388 
1€29 4 COMMON_WAKE_TMO: 
129 5 AKE_ ; Get the test going again 
FF26 31 1€34 $ BRW EXIT_FROM_TMO 
1639 
1 4 : TMO_HELLO: 
+5 4 4! : Some processor didn't respond to our friendly hello. 
O1Dc C6 =50 cf 1€37 38 : BICL2 RO,MA_L_HELLO(R6) ; No longer expect other processor 
FFIE 31 1€3c 339% BRW EXiT_FROM_TMO 
1E3F 8396 
i : $3 TMO_ICU_UCME : 
if : 399 : Some processor didn't let us know that we could see it, too. 
01E0 C6 =650 cf 1C3F 203 : BICL2 RO,MA_L_ICU_UCME(R6) ; No longer expect other processor 
FFI6 «31 1€44 «3402 BRW EX{T_FROM_TAO 
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-SBTTL Print Error Summary Routine 


++ 
FUNCTIONAL DESCRIPTION: 
his routine is called at the end of a thre-minute test iteration or 


a 
we 


one shot pass to print whatever information we may have stored 
regarding errors during the test. 


CALLING SEQUENCE: 
CALLS  #0,ERROR_SUMMARY 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 

UNIT_LIST points to the List of nodes, one for each memory. Within 
each node, there are several mask words, each of which corresponds to 
3 particular condition. The bits in each mask correspond to the ports 
of the shared memory attached to processors. A bit is lit if the 
condition applies to that processor. 


OUTPUT PARAMETERS: 
NONE 


DWOONA NE WIN SO OO NAW EWN OOD NAME WIN OODONOU EW" OOOO 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Messages to SYSSOUTPUT. Masks described above are cleared out. 


a a a a kd dt 
POOOVOOIODOOMOOAOONOOOAOIOAOIOIOOAIOOOOOIAODOAIOOOAIOOOOOOOOOOONO 
Le ea ab sb Ab thd b An ee te ee ee ee ee et et et ee ot at ot et ot ot ot ot ot ot ot at ot ot ot et et ot et et et nt et tt et 


AMD OOWUW 0 0 LN 
Fak tak tak tale tah tale lle tale Ue ad ek ak ek ee ek ee ae ek ek ek ae ae ae ee ek ek a ee ke ek ek ek ee ek ek ek 


RROR_ SUMMARY : 
OF FC ? -WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> =; Entry mask 

56 O1D8'CF QO00001D8'8F C1 ? 108 ADDL3 #UNIT_LIST.UNIT_LIST,R6 ; R6 points to node for current memory 

Cc 00 3B 4 " - §KPC = #0, #MA_K_ERRLEN, - : See if we have... 
180 £6 4 MA_L_ERRBLK(R6) 3 ..-anything to report for this memory 

12 4 BNEQ 208 ; BR if we found a problem 
0078 sé} r 20$ BRW 100$ ; BR if it’s clean 
50 O7A0'CF bE 4 "  MOVAL «= SUMMARY_HEADER, RO ; We've some error, print a header 
F624 4 BSBW  DO_FAO_INFO 
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Print Error Summary Routine “SEP=-1 UETPSY.SRCJUETMA7 
50 0184 C66 34 L_RILOSTUCR6) ,RO 3 Did hink 
aan oT EM oo) eth ecnasen sd OL Ofte inettcas eee 
B0Kn BF if = eel BhLe MSG, ; Yes, print appropriate message 
50 0180 £6 Dd Cc? 4 § MOVL MA_L_SILOSTU(R6) ,RO ; Did we think someone else went away? 
57 OBC DE ere 8 ROVAL  STLOSTU_MSG,R7 i Yes, print 
boo pF 8 t peg shhe MSG, ; Yes, print appropriate message 
50 0188 9 : 3 i rte BA gL RBADCODE (RE) .RO ; pre ye send someone a trashy HELLO? 
: no 
57 O088D'CF C 4 MOVAL RBADCODE_MSG,R7 3; Yes, i i 
ay BF 9 68h = ttle BeAe # es, print appropriate message 
50 OBC C £8 rs pt MA_L_SBADCODE (R6) ,RO 3 pre goncene send us a trashy HELLO? 
: no 
57 0905'CF D COA 34 MOVAL ADCODE_MSG,R7 3; Yes, i i 
cf , COR r atts it t es, print appropriate message 
A 60$: 


50 01C0 cs dD MOVL BAgt- DOSETFAIL(R6),RO ; Did someone fail to set a bit? 


57 0978'CF DE ICA ROVAL  DOSET_MSG,R7 i Tons anten ' 
70 10 1CAD BSBB. 2008 = ; Yes, print appropriate message 


~ 
o 
iad 


MOVL MA_L_DOCLEARFAIL(R6),RO ; Did someone fail to clear a bit? 
MOVAL SOLEAR MSG,R7 ; ve . Pint i 

P ; Yes, print appropriate message 
BSBB. «2008 _ ates ape as . 


50 60104 C6 OD 
07. (1 
57 O9C3"CF OD 
oo % 


50 =01C8 3 
57 OAI0'CF OD 
54 C1 


50. 0 O1CE £6 ? 
57 OA72'"CF OD 
46 1 


50 0100 £8 ? 
57 snadll 4 9 


50 01D4 £6 Dd 
0 1 
57 OBSS'CF 8D 
2A 
50 0108 fs Dd 


1 
57 OBBE'CF oD 
1¢ 


oo 
oC 
Sad 


MOVL Sigh MOCAISE CRE? ORG 


MOVAL NOCAUSE_MSG,R7 
B 2008 


MOVL MA_L_OLDSTUFF(R6),RO 
OLDSTUFF_MSG,R7 
0$ 


pre yes get an unexpected message? 
Yes, print appropriate message 


wo 
vom 
o<o 
orr 

7 


oO 
o 
A 


Did we get msg before we were ready? 
BR if not 


Yes, print appropriate message 


COONVOTWDOLNwITS 
7 
So 
o 
wn 
ee 


MOVL MARL INTLKTMOCR6) ,RO 
110 


. Ere gveryens finish interlock test? 
MOVAL SETLRTRO_NE6 AY 
B 00$ 


“om 

@<o 

orr 
. 


No, print appropriate message 


110$: 


MOVL MA f, SABAME (RS) RG 


Did ADAW! counts add up? 

8 BR if so 

MOVAL aati 
00$ 


No, print appropriate message 


1208: Osa JouEUEcns) nO 
30$- : 


AOVA QUEUE_MSG,R7 
BSB” : itt ae 


More alt interlock queues consistent? 


so 
No, print approoriate message 


130$: 
2C 00 Q0000000'EF 00 2¢ 


feo fe MOVCS #0, “oe #0,@MA_K_ERRLEN,- ; Clear out this run's errors 


L[ERRBLKTRE) 


aa aa aa aii a i aa a Ba a a a st od ot ok = = = 2 a 9 a a — sa 8 8 8 8 1 2 3 2 


SOOOOOOCOOCOWOO OOOO OO OW 09 09 09 09 09 09 NINN NEN NNN NOOO 
NOMA EGS OO NAME WI 0 OD NAME WIN 9 OONOAOU EW" O OONO 
z 
o 
< 
> 
_ aa 


PAA ATE PP PEPPER EPP PEEP PPE PEPPER EE 


PN EF BW VIMO NINMIOMmM 
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6 6 CO 1008 ADDL2 (R6),R6 ; Point to node for next memory 
56 00000%p8" F 1D Q CMPL) ft NIf_LIST.R6 ; Back at the start of the queue? 
: 101 BEQL 130 ; BR if we are - we're finished 
FF 1318 } 1508 BRW 10$ ; More to go so loop 
04 DIE 18 "RET ; Error summary finished printing 
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DIF 15 2008: 
598 38 1D1F 18 BSBW MASK_2_ARGLST ; Convert RO mask to sf40 ,or8 list 
58 —E 00 1D 1 MOVL SP,RB ~ ; Save pointer to arg lis 
1D 18 SFAOL_S CTRSTR = (R7),- ; Format message w errant procs 
1D OUTLEN = BUFFER_PTR,=- 
1D Y TBUF = Fag BUF ,- 
1D MLST = (RBY 
OO0C'CF DF 1D q PUSHAL BUFFER_PTR 
1 DD 1D3C USHL 
oor USS F DD 1D ; 4 PUSHL #UETPS Tey st see. INFO 
5pOO8? 0'G 3 FB 104 5 CALLS @# GL Te SIGNAL 
e8 4 7A 104 § EMUL #4,(R8),#4,R8 g ome = — 2 ARGLST results... 
8 £9 De ADDL2 R8,SP 3 «eefrom the stack 
1D 528 RSB 
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Test Cleanup Routine P=1984 
9 rete -SBTTL Test Cleanup Routine 
j : FUNCTIONAL DESCRIPTION: 

This routine is called by the exit handler to ensure that all objects 
which use system rysources (e.g., prese’ sections in shared memory) 
are all properly disposed of and that we are consistent with respect to 
other processors. 


CALLING SEQUENCE: 
CALLS #0,CLEANUP 


INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
UNIT_LIST points to the List of nodes, one for each memory. Within 
node, there is a pointer to the interprocessor global section for that 
memory as well as miscellaneous status info. 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Remove as many traces as possible of our existence. 


OFFC -WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RIO,R11> ; Entry mask 


The following objects (using system resources) are created during the 
execution of the shared memory test: one global section per memory 
accessed by all processors connected to that memory, one global section 
per memory accessed only by the current processor, the files associated 
with those global sections, one mailbox per memory associated with the 
current processor, other mailboxes in each memory associated with 
processors connected to that memory, one common event flag cluster 
per memory accessed by all processors connected to that memory, and one 
common event flag cluster per memory accessed only by the current 
processor. Of those items, only the global sections and the associated 
iles are not automatically deleted or marked for deletion during image 
rundown; the others have a ‘‘temporary’’ existence. 


The interprocessor global section may not have og tual been created by 
this processor. In that case, we cannot delete it, but only delete its 
address space. The file that was created in our attempt to create the 
section still must be deleted, however. 


Pv aisles ah ab ah sh dh dh ab ab db db db db db tb db db db ob bbb dh th dh th ah ab sh sh ah ah ah ah ah ah ah sb ab ah ah eal ial ahead alah eal eal eal eal esos eal 


De ee oe eee eal eae eee esse e eee ees 2 or or or ot ot ot ot ot ot ot ot ot et ot et et et et et et Ot tt et a a 
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GOOD 0909 G9 OD OD NN ID DDD DEDEDE DDS UT Be BS BB BB BE AAI 


PAE 9 OD NAN WIN 9 OD NAN EAN SO OD NA UNE WII 0 OD NOAM EAN" OOONOUIS 


a ed dd 
CSUVCVCVVCCVCCVCVU CCU CUOUUOVCUOCOSCOUOCUOOCUVTUVOVCOCVUCOCUOVCVCUVCVCUUCUVTVVCVCVUVCTVUVCUVCCUVUVTVTUS 


Even though we may be able to try to delete the interprocess global 
section, it may only be marked for deletion because other processors 
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are still using it. Because there are data structures within the 

sere on and expectations on the part of other processors as to how we 
will access those structures, we will attempt to keep things consistent 
within the section and between processors regardless of whether or not 
we can delete the section. 


56 O1DB'CF ODE MOVAL UNIT_LIST,R6 ; R6 will point to node for each memory 
ADDL2 R6 


L 
BNEQ 
BRW 


(R6) ,R6 3; Point to next node on List 

# NIT_LIST.R6 ; Check now for back at start of queue... 
$ 3 «eeand exit if empty. because we... 

0$ 3 efor 


56 6 
56 00000108 sf 


co 

01 
i 
O1A4 «+-can be called e queue is set 


20$: 


Before we can get rid of the interprocessor gtepet section, we must do all 
the things which will keep us consistent with any processors which may still 
be using it. This involves removing us from any masks in the global section 
which say we are present and releasing ony locks we may own. Note that we 
oh Mags any entries we may have on the free queue and the busy queue 

an e 

the ADAW! count in the interprocessor global section. To try to fix these 
would probably cause more trouble than leaving them, since there is an 
excellent chance that they are consistent anyway. When everything needed for 
consistency is done, we have to tell any other processors that we're goin 


count of such, and that we also ignore anything we may have done with 


We needn't bother cancelling timers for any other messages we may Reve 


ce ce cel cD cel el cel eel eel eel eel ee cel el el ce cel el el el el el el el el el cel eel eel eel cel cel cel eel eel el eel eel el el el eel cel cell el els ell els cl cells eels eels cel cel 
SCVOVUVTVTOCOVUVCUCOUCUCOUOUOUUUOUOCOOCOCUOUUOCUUOUUUOUUOUOCOOCOOCUOCUUOCOUOUUOUCUUOUCOUCOUUUUCUUCUUCUCUUCUUUOUVUOUVUUVTUVTCST 
OO OO O00 0909 0909 SI INNA PPA AAPA AA AAA AAA AA IIIT 
DLDPRDPDPDP_DPPLPEPP PAPA PAPA AAA AA AA AA AA AAA AAA A AAA AAA AA MNIMIIVIVIVIVIVIUIVIVIUT 
AAAAAAAAAIGIPIPIPINPININININIDS 2 2 2 | QOD OCOOCOCOCOCOCOOOOOOOOOOWOM>c9 
WPI OO NOUNS 0 OD NOAM EE WIN = 0 OO NOUNS UO) OOO NOU EUR "0 OO NOAU ES UP" OVUOon~ 
Sete Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge 

=z 

oO 

< 

"al 


B 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A away. 
. to those processors; that is one of the functions of image rundown. 
57 062C £6 t A MA_Q_COMGSRAD(R6) ,R7 ; Point to start of interprocessor GS 
0 1 F BNEQ 308 
0126 = 31 } 308 BRwW 140$ ; Skip all this is we haven't mapped it 
58 O1AC C6 9A 4 "  MOVZBL-MA_B_MYPORT(R6) .R8 ; Set up for bit clear instructions 
00 24 a7 58 «7 9 pe BBCCI R8,GS_L_AVAILABLE(R7),40$ ; We're no longer playing ball 
00 2C A?) «658 OE? id BBCC] R8,GS_L_PARTICIPATING(R7),50$ ; We're not interlocking... 
00 30 a7 58 €7 et, BBCCI R8,GS_L_FINISHED(R7) ,60$ eae 
O1AC (691 "  CMPB- ss MA_B_MYPORT(R6) ,- ; Do I own the lock? 
2B A7 C S“L-CEF_FLAG+3(R7) 
03 12 BNEQ ; BR if not - it will get cleared 
28 A? 4 70$ CLRL GS_L_CEF _FLAG(R7) ; Unlock interprocessor CEF test 
O1AC C691 "  CMPB-) ss MA_B_MYPORT(R6).- ; Do I own the lock? 
37 A LIINTLK_FLAG#+3(R7) 
03 12 9 BNEQ $ ; BR if not - it will get cleared 
34 A? 4 oe 80s CLRL GS_L_INTLK_FLAG(R7) ; Unlock memory interlocking test 
9E 
58 D4 9 CLRL R8 ; as is STRTPOS for FFS operations 
59 04 00 ° 908 MOVL #PROCESSOR_MAX,R9 7 R 
SA 24 a7 59 : FA IDA 4 "OFFS RB R9,GS_L_AVAILABLE(R7),R10 ; Search for a willing processor 
‘ A 4 BNEQ 1 Os : BR if we found one 
0090 3 ~ ? 1008 BRW 1108 ; BR if there are none left 


is SIZE for FFS operations 
| 
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Be 


SERASE FAB = MA_K_COMFAB(R6) ; Get rid of the associated file 
; (We can swallow RMS-W-IFI errors) 


We can just bl ingly get rid of the single processor global section because no 
one else anows of it. We must, however, wait to catch the situation where we 
reach this point but an suPoset is still in progress. See the note where 
SPRGS_EFN is defined. If the section is already removed, there should be 


O1AC C6: 90—s«IDA 4 MOVB MA_B_MYPORT(R6) ,=- ; Start filling in message... 
ao & 1Da3 gee AST _Aeeur «ne B SENDER i «sender's Sort mumbeter. 
1108 ft A 30 108 $ MOVB R107AS PeBUE *AB_B RECEIVER : +» -Peceiver's port number... 
\FC C6 1DBA 4 MOVB MA_W_UNTT(R6),= i «eeunit of the memory we share... 
11 ocr 108 48 AST_ABBUF+MB_6_UNIT : 
,00 BO IDC 64 MOVW #MSG_BYEBYE,= 3 «esPeason for tae message 
110 CF 1DC3 365 AST_MBBUF+M6 W_WHY 
: C6 28 10C 6 MOVC3 MA_G_COMMBNAA(R6),- ; Form the logical name... 
1130°CF C6 1DCA 36 MA_T_COMMBNAM(R6),AST_MBNAM ; ...0f other processor's MB 
1135°CF C6 =60 10B8 6 MOVL MA_Q_COMMBNAM(R6) ,AST_MBPTR ; Form descriptor to... 
1139°CF 1 a D 10D 654 MOVAL AST_ABNAM. AST MBPTRe4 3; «e.the logical name 
50 A 1005 ° 5 MOVL R10,R i; Include the port number... 
F44D 1DE $ BSBW ee t § eee 
FF AS = 550 1DE4 36 MOVB RO,-1(R3) 3 seein the name 
IDES 65 SCREMBX_S CHAN = AST_MBCHN,- =; Establish a Link to other proc's MB 
1DE 65 LOGNAM = AST _MBPTR 
IDFF 366 $Q10_S CHAN = AST_MBCHN,= . Say bye to the other processor 
1DFF 661 FUNC = #108 WRITEVBLK! 108M NOW, = 
1DFF 666 10SB = AST_ABISB,- ; NOTE: We ignore errors! 
1DFF 366 P1 = AST-MBBUF ,- 
IDFF 3664 P2 = #MB_K_END 
1E22 3665 SDASSGN.S CHAN = SYNCH_MBCHN ; We no longer need the MB 
3S FT 3S CS TE 3 606 SUBL R8,R10,R11 ; Get number of bits we searched 
58 bg 1E 66 INCL R14 ; Correct off-by-one (inclusive search) 
59 5B C2 1€34 3668 SUBL R11,R9 ; Adjust number of bits left to search 
58 SA 01 ¢ 1E37 3669 ADOL #1,R10,R8 ; Point to new first bit to search 
FF65 oe 670 BRW 90$ ; Loop thru all procs on this memory 
3 : oc) 110$: 
1E3E $8 ; Only update or delete the interprocessor global section if we were the 
i : ore 3; processor which created it. Delete the file regardless. 
58 20 a7 90 IE ore MOVB GS_L_OWNER(R7) ,R8 ; Save a copy of the GS creator's port 
O1AC C6 58 O91s«1E42 «367 CMPB  =—s- RB MA_B_MYPORT (RO) ; Did we create the section? 
20 12 «1&4 ore BNEQ 12 ; BR if not = can't update it 
1E49 367 SUPDSEC_S INADR = MA_Q_COMGSRAD(R6),- ; Updating the section now... 
1E49 3680 = #COMGS_EFN 3 «e.means we avoid implicit update 
1508 ? 1 1208 SWAITFR_S EFN = #COMGS_EFN ; Let the SUPDSEC finish in peace 
1692 6 : SDELTVA_S INADR = MA_Q_COMGSRAD(R6) ; Remove GS virtual address space 
O1AC C6 «58S o91s« E78 «3684 CMPB R8,MA_B_MYPORTTR6) ; Did we create the section? 
OF 12 1E€7D 3685 BNEQ ;_BR not - can't delete it 
err ? § 1308 SDGBLSC_S GSDNAM = MA_Q_COMGSNAM(R6) ; Delete the section... 
IESE 3 1408 SDASSGN_S CHAN = MA_K_COMFAB+FABSL_STV(R6) ; ...and unhook RMS 
0112 4 3 3 4 44 ay MA_K_COMF AB+F ABSW_IFI(R6) in'? the file still open? 
: no 
1EAD $36 SCLOSE FAB = MA_K_COMFAB(R6) ; Close it if it is 
1E 693 150$: 
1E 694 
1E 695 
1E 076 
1E 69 
1E 038 
1E 4 
1E 00 


@DoOwwoaow 
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; no problem. 
063¢ D : TSTL A_Q_SPRGSRAD(R6) ; Did we ever map the section? 
sg a3 BEQL 6 ; BR if not . 

SWAITFR_ = #SPRGS_EFN ; Prevent prob if SUPDSEC in progress 
SDELTVA_ R_= MA_Q-SPRGSRAD(R6) ; Remove virtual address space... 
$DGBLSC_ NAM = MA_G_SPRGSNAM(R6) ; ...delete the section... 


= im 


N = MA_K_SPRFAB+FABSL_STV(R6) ; ...and unhook RMS 
MA 5 .SP HF BOF ABOU TF CRS) ;_ Is the file still open? 

FAB = MA_K_SPRFAB(R6) 
FAB = MA_K_SPRFAB(R6) 


; not 
; Close it if it is 


; Get rid of the associated file 
; (We can swallow RMS-W-IFI errors) 


OMNFHMMMoOODMWWOwWwow 


ooo 
PROBS OoUIN MURS FPOOon 


_ 
~ 
oOo 
wf 


; Loop for the next memory 
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if ' ee -SBTTL Test Timer Expiration Routine ne. 
1F OF : FUNCTIONAL DESCRIPTION: 8 
if : ¢ 5 his routine runs when the timer to mark the end of the test goes off. mB" 
1F OF 5 > CALLING SEQUENCE: me. 
if : : Called via AST at SSETIMR expiration. RE; 
1FOF 37 : : INPUT PARAMETERS: mE 
ie iy; ro 
1FOF : IMPLICIT INPUTS: MPR 
ire zi NONE aa 
1FOF 3735 : OUTPUT PARAMETERS: MPR 
ete 
1FOF 37 : : IMPLICIT OUTPUTS: 
IFOE 8940 | a 
1FOF 3741 : COMPLETION CODES: 
ae 
1FOF 3744 : SIDE EFFECTS: 
1FOF 3745 ; Sets a flag to indicate timer expiration. 
1F OF 246 : 
TE OF 747 ;-- 
iF OF 28 TIME_OUT: 

OFFC 1EOF 750 ~"" {WORD = *M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> ; Entry mask 
O002"CF O02 As 1F11 O36 BISW2 #TEST_OVERM,FLAG ; Indicate end of pass or of test 
04 1F16 375 RET 


-SBTTL System Service Exception Handler 


44 

; FUNCTIONAL DESCRIPTION: 

3 This routine is executed if a software or hardware exception occurs or 
if a LIBSSIGNAL system service is used to output a message. 


; CALLING toe ges be 
; Entered via an exception from the system 


; INPUT PARAMETERS: 
; ERROR_COUNT = previous cumulative error count 


AP ==--> 2 1 


SIGNL_ARY PNT 


MECH “ARY PNT 


! 4 ' a 
| ESTABLISH FP} : 
i PEP TH Mbt ont ; Mechanism Array 
LRG. SERS 
SEES a eaaaaane ess. 


LONG WORD i 


=O OD NAUSEA $$ O OD NAUSEA 0 ODN UE OOONOUM 


ee ee 


30000909 09 09 09 09 69 09 09 09 SII INIA AAP AAAS AO 


' 
' 
i N=3 ADDITIONAL | Signal Array 
' 
' 
Vv 


793 ; 
>; IMPLICIT INPUTS: 
; NONE 


; OUTPUT PARAMETERS: 
; NONE 

; IMPLICIT OUTPUTS: 
; NONE 


; COMPLETION CODES: 
; SS$_NORMAL if it’s a UETP condition or RMS error. 
Error status from exception, otherwise. 


; SIDE EFFECTS: 
: May branch to ERROR_EXIT. 
May print a message. 


7 
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ot 4 4 2 2 2 — —) — 2) > 4 4 4 2 2 2 a a as tb 2 > —s ss as 2s ss > 2 ts tb as ts a a ts 2 tt te 
nn on ooo 
Oe a et et sb bs bs __s bd ad 2» 2) bb 2» _b ss bs ds as 2» _ 2s 2 a 
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} 
a | 


1F1 12 SSERROR: 
OFFC if} ! «WORD “M<RZ2,R3,R4,R5,R6,R7,RB,RI,RIO,RI1> = Entry mask 
1F1 1 SSETAST_S ENBFLG = #0 i Disable AST delivery 
. 7 18 PUSH ; Assume ASTs were enabled 
50 9 » 1F 1 CMPL $,gSS8_WASSET RO ; Were ASTs enabled? 
2 13 1F27 1 BEQL 0$ ; BR if they were 
6E 04 if 2 1 108 CLRL (SP) ; Set ASTs to remain disabled 
1F 2B 1 SSETSFM_S ENBFLG = #0 ; Disable SS failure mode 
1 DD 1F34 § PUS 3; Assume SS failure mode was enabled 
50 7 3 CMPL Bg SSS _WASSET RO ; Was SS failure mode enabled? 
. Ww & BEQL 0$ 3 it was 
6E 04 i 5 208 CLAL (SP) ; Set SS failure mode to remain off 
56 = 04 AC g0 1F30 ; MOVL CHFSL_SIGARGLST(AP),R6 ; Get the signal oreey petoter 
59 (04 As D 1F41 8 MOVO  CHFSL-SIG_NAME(R6),R9 |: Get NAME in RO and ARG! in R10 
1 ED ites 829 CMPZV s- #STSS$V_FAT_NO,- ; Is this a message from LIBSSIGNAL? 
Of 1F4 0 os a FAC_NO,= 
00000074 BF 59 1F48 1 R9,MUETPS_FACILITY 
14 ig 1F4 § BNEQ 30$ ; BR if this is not a UETP exception 
S @ <e we SUBL2 #2,CHFSL_SIG_ARGS(R6) ; Drop the PC and PSL 
1F5 4 SPUTMSG_S MSGVEC-= CAFSL_SIG_ARGS(R6) ; Print the message 
4 eb HS 5 30s BRB 40$ ; Restore ASTs and SS fail mode 
59 0000045C Di 1F64 $ CMPL #SSS_SSFAIL,R9 ; RMS failures are SysSvc failures UE’ 
12 1768 8 BNEQ 50$ ; BR if this can't be an RMS failure UE 
1 ED 1F6D 9 CMPZV = #STS$V_FAC_NO,- ; Is it an RMS failure? UE 
oc 4 40 #STS$S"FAC-NO,- UE’ 
01 5A 1F 41 R10,#RAS$_FACILITY UE’ 
B 12 1F7 8 BNEQ 50$ ; BR if not UE’ 
5A 0000000 8F cA 1F74 4 BICL2 #*xF0000000,R10 ; Strip control bits from status code UE’ 
08 A6 r 9 \Fee r¢ MATCHC #4 CHFSL SIG _ARGI (RO) .- ; Is it an RMS failure for which... . 
004D' CF 1680 46 NO_RMS_AST_TABLE ; «.Mo AST can be delivered? UE’ 
1A 13 ir : r on BEQL 508 ; BR if so - must give error here rf 
01 BA 185 rt POPR #*M<RO> ; Restore SS failure mode... UE’ 
1F87 50 SSETSFM_S ENBFLG = RO 3 pee UE’ 
01 + BA 4 3 51 POPR #°M<RO> ; Restore AST enable... UE’ 
1F9 3 SSETAST_S ENBFLG = RO Pe UE’ 
50 01 DO 1F9B 5 MOVL S“#SS$_NORMAL ,RO ; Supply a standard status for exit UE’ 
04 ree 20 50s T ; Resume processing (or goto RMS_ERROR) ¥. 
O1BA'CF 59 DO IF9F 56 MOVL R9, STATUS ; Save the status UE 
58 D4 1FA4G 5 CLR ; Assume for now it's not SS failure UE 
59 0000045C 8F D1 IFA6 5 CMPL #SS$_SSFAIL,R9 ; But is it a System Service failure? UE 
8 12 IFAD 5 BNEQ 7 ; BR if not - no special case message UE 
1FAF 60 SGETMSG_S MSGID = R10,- ; Get SS failure code associated text UE 
1FAF 3861 MSGLEN = BUFFER _PTR,- UE 
1F AF 6¢ BUFADR = FAO_BUF,- UE 
1F AF 6 FLAGS = #147- UN 
1F AF 64 OUTADR = MSG_BLOCK UN 
O1BB‘'CF 95 1FC6 65 TSTB MSG_BLOCK+1 ; Get FAO arg count for SS failure code UN 
16 13 =1FCA 96 BEQL ; Don't use SGETMSG if no SFAO args... UN 
OOOC'CF OF eck 6 PUSHAL ay FER Pre ; ..-else build up.. UP 
01 DD 1FD 68 PUSHL # : i..@ Message describing... uP| 
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00741130 8F pe Ha $9 PUSHL oye ee et 3 gywhy the System Service failed 
00 A FO 1FfD INSV $Ts sty ent TY > 3 he message... 
$f 1FDB 387 as TEES SEVERITY, (SPS : .eethe correct severity code 
0 fp pov , " ; Count the number of args we pushed 
1FE 4 60$: 
3 43 1FE 75 PUSHL R10 ; Save SS failure code 
58 eo 8 4 6 708 MOVL #1,R8 ; Count the number of args we pushed 
57 6 ee FED 4 MULL a, gHFSL. SIG_ARGS(R6),R7 ; Convert Longwords to bytes 
E 7 § 1FEB 7 SUBL ; Save the current signal array... 
6—E 04 he 7 1FE 59 MOVC R7. eNFSL _SIG_NAME(R6),(SP) ; ...0n the stack 
7E 8 § iFF ADOL RB, oR EXT ne WARGS(R6),-(SP) ; Push the current arg count 
OOA6 =«31—sCOsdFF 82 BRW ERROR 


H 7 
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4 -SBTTL RMS Error Handler 


+ 
FUNCTIONAL DESCRIPTION: 
This routine handles error returns from RMS calls. 


CALLING SEQUENCE: 
Called by RMS when a file processing error is found. 


INPUT PARAMETERS: 
Address of the FAB or RAB associated with the RMS call. 


FFA 
FFA 5 ;+ 
FFA § : 
FFA 3 
FFA S : 
1FFA 7g 
1FFA : 
1FFA 91; 
1FFA 92; 
IFFA 3804 | 
1FFA 95 ; IMPLICIT INPUTS: 
IFFA 3899 | _— 
FFA 38 3; OUTPUT PARAMETERS: 
1A gp; MO 
1FFA $01 3; IMPLICIT OUTPUTS: 
44 : ¢ 3 Error message 
1FFA 3904 ; COMPLETION CODES: 
WA gy Noe 
1FFA 309 ; SIDE EFFECTS: 
: rogram may exit, depending on severity of the error. 
1FFA 3908 P j d di i f th 
FFA 909 ; 
ek gig 
1FFA 31g RMS_ERROR: 
OFFC 44. a ~ WORD “M<R2,R3,R4,R5,R6,R7,RB,R9,RIO,RI1> ; Entry mask 
56 04 AC DO IFFC 3915 MOVL 4(AP) ,R6 ; See whether we're dealing with... 
66 03 91 200 916 CMPB =: #FABSC_BID,FABSB_BID(R6)'; ...a FAB or a RAB 
16 12 200 91 BNEQ 10$ ; BR if it's a RAB 
57 1D04°CF OD 38 318 MOVAL FILE,R7 3; FAB=-specific code: text string... 
;. we A 391 MOVL R6, RB 3 ..-address of FAB... 
C A6 DD 200D 3920 PUSHL FABSL_STV(R6) : ..eSTV field for error... 
8 A6 OOD 1 921 PUSHL FABSL_STS(R6) 3 ..-STS field for error... 
O1BA'CF OB A "0 1 9 ¢ MOVL FABSL_STS(R6) , STATUS 3 «..and save the error code 
1 11 + , P tne BRB COMMON ; FAB and RAB share other code 
57 eT 43 18 925 MOVAL RECORD,R7 ; RAB-specific code: text string... 
58 3C AB OD 9 $ MOV RABSL_FAB(R6) .RB : ...address of associated FAB... 
A6é OD 4 3 PUSHL RAB LS TV ERO) 3 «eeSTV field for error... 
A6é OD 7 § PUSHL RABSL_STS(R6) ; -.-STS field for error... 
018A'CF Aé6 +0 A 2 paler: MOVL RABSL_STS(R6) , STATUS 3 ...and save the error code 
SA 34 A8 QA 931 MOVZBL FABSB_FNS(R8),R10 3; Get the file name size 
4 39 § SFAO_S CTRSTR = RMS ERR_STRING,- ; Common code, prepare error message... 
4 39 OUTLEN = BUFFER_PTR,- 
4 3934 oUTeUF = FAO_BUF,- 
4 3935 Pp = R7,= 
4 936 Pe = R16,- 
4 39 P = FABSL_FNA(R8) 
wnat, pr 3) 3 : or BUFFER PTR 3 «..and arguments for ERROR_EXIT... 
00741130 8F ODD 3 94 PUSHL #UETPS_TEXT Sone 


ing 
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gy Gass iguyeTastagy SURRY = 

59 O1BA'CF Dd 4 STATUS TRS q j «..get the severity code.. 
6€ 9 88 61 3944 BISB2 R9, (SPS ...and add it into the signal name 
93 ge 64 3945 PUSHL #5 Current arg count 
00 1 66 3946 BRW ERROR_EXIT 
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ce -SBTTL CTRL/C Handler 
: FUNCTIONAL DESCRIPTION: 


3 This routine handles CTRL/C AST's 
> CALLING SEQUEN E: 
; Called via AST 


; INPUT PARAMETERS: 
; NONE 

; IMPLICIT preres 
; NON 


; OUTPUT PARAMETERS: 
NONE 


; COMPLETION CODES: 
; NONE 


+ IMPLICIT OUTPUTS: 
; NONE 

: SIDE EFFECTS: 

: NONE 

C 


SOSSSS SSS SSS STS sso oweSoTeSeeoeS F 
WOOODOOVOOVOOOVOODOOVOODOOVOOOOOOOOOONO 


CASTHAND: 
» WORD “M<CR2,R3,R4,R5,R6,R7,R8B,R9,RIO,R11> ; Entry mask 
O082°CF OF PUSHAL CNTRLCMSG i message pointer 
4 DD PUSHL arg count 
00741130 8F OD PUSHL #UETPS_TEXT!STSS$K “warning $ * signal name 
dD PUSHL # z indicate an abnormal termination 
OOES'CF ODF PUSHAL ppocess _NAME 
2 oD PUSHL 

0741060 BF OD PUSHL AUETES AB ABEND STSSK “vanwing 
00'GF 7 «FB CALLS @ 3 Output the message 


MOVL fest stne Innis. MSG!- ; Set the exit status 
See ge SUCCESS+STS$K_WARNING>,- 


O18A'CF 10000650 8F STAT 
SEXIT_S STATUS ; Terminate program cleanly 


DWDODOOOODOOOOOOOOOOOO OOOO OVOVOOVOOOVOOOVOOOVOOOOOOOWO 
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. oe? -SBTTL Error Exit 
A 396 i ; FUNCTIONAL DESCRIPTION: 
“ 339 ; This routine prints an error message and exits. 
A 938 : CALLING SEQUENCE: 
A 999 ; MOVx error status Fag ne Pe bindd 2 
AQ 4000 ; PUSHx error spec nformation on the stack 
AQ 4001 ; PUSHL current srounent count 
“ ? § : BRW ERROR_EXIT 
AQ 4004 : INPUT PARAMETERS: 
: ? 3 3 Arguments to LIBSSIGNAL, as above 
AQ 4 : : IMPLICIT INPUTS: 
~ r 3 3 NONE 
AO 4 19 > OUTPUT PARAMETERS: 
- 2 : 3 Message to SYSSOUTPUT and SYSSERROR 
OAO 4 13 > IMPLICIT OUTPUTS: 
BA ra 3 Program exit 
oA 4016 > COMPLETION CODES: 
Bad C018 — 
A i019 > SIDE EFFECTS: 
AQ 4020 ; NONE 
QAO 4021 ; 
Oa 408° 
OA 49 , ERROR_EXIT: 
AQ é9 § SSETAST_S ENBFLG = #0 ; este can play, havoc with messages 
15 0002'CF 3 €0 20A9 4 BBS “WOEGIN _MSGV,FLAG,10$ : R if Ae n'' msg already printed 
E D4 20AF 4028 P) 3 Set the time stamp flag 
OOOF'CF OF pe) 3 9 PUSHAL T ST_NAME : get A. a test name 
2 oD BS 4030 PUSHL e argument count 
00741039 8F ODD 7 4031 PUSHL #UETPS +44 pF bea succésss .- the message code 
00000000'GF 04 FB BD 4 : rat CALLS #4,G*LTB : Print the startup message 
O1CE'CF O08 8€ (C1 cs 4034 7 ADDL3 Td ag “tbo ARG. COUNT ; Get total # args, pop partial count 
0186'CF 06 A 4035 INCL ERROR_COUNT 3; Keep running error count 
00 OD cf 4 § PUSHL #0 ; Push the time parameter 
3 F OF pO 4 PUSHAL PRoces AME : Push test name... 
000F ; i DD D4 4 3 PUSHL #* -+-8rg count... 
00741 F DD 20DA 4 PUSHL #UETP$_ABENDD!STSS$K ERROR .-and signal name 
186'CE DD 2060 4040 PUSHL ERROR COUNT : Fi inish off arg List... 
a bb S0E8 4042 PUSH ie se ie 
$094 0 $ F DD ef 4 rk} PUSHL #UETPS ERBOXPROC!STSSK “chnai. “g for error box message 
00000000 ' GF 1CE'CF f8 F 4044 CALLS ARG_ COONT,G*LIBSSIGNAL” ; teuly'6 tch 


7 
vest YAcen, ge” DEVICE Test com eral "HEEB AOSTA WSHPTE St SteTRz Bla mass "0 UE, 


FB45 ff 00 fF Of 404 CALLS #0 1 aa alata ; Print recoverable error statistics 
18A'CF » 404 TSTL TATUS ; Did we ents with an error code? 
9 1 404 BNEQ 0$ ; BR if we did 
00741062 F DO 2108 404 MOVL § #UETPS_ABENDD!STSSK_ERROR,- ; Supply a generic one otherwise 
018A‘ CF 196 ? 208 STATUS 
O18A'SF 10000000 BF CB 2111 4 ¢ B1St #STSSM_INHIB_MSG,STATUS ; Don't print messages twice! 
11A 405 EXIT_S STATUS ; Exit in error 
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bes -SBTTL Exit Handler 
: FUNCTIONAL DESCRIPTION: 


Page 193, 


a res tp handles cleanup at ft't. If the MODE logical name is 
couet ted to ‘‘ONE’’, the rougine wi update the test fl he 
VETINI Eve DAT File depending on the ETUNTSM_TESTABLE 
UETUNTSB_ FLAGS f eld of the unit block for each unit for the device 


under test. 


CALLING SEQUENCE: 
Invoked automatically by SEXIT System Service. 


INPUT poneny rene: 
STATUS contains the exit status. 
FLAG has synchrontzing bits 
DDB. RFA contains the RFA of the DDB record for this device in UETINIDEV. 


; IMPLICIT {NPUTS: 
UNIT_LIST points to the head of a doubly Linked circular List of unit 
locks for the device under test. 


OUTPUT — 


; IMPLICIT OUTPUTS: 
Various files are de-accessed, the process name is reset, and any 
Tf thee nb gre br grade with ve As EV 1 is carried out 
oF fet get name is squat d to ‘ONE’, the rout ine will update 
ag n the VETINIDE DAT file nbs Fags” 
Ge TUNTSA. tes ABLE flag state in the VETUNTS8_FLAGS Field of the unit 
block for each unit for the device under test. 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


EXIT_HANDLER: 


ee ed od ed = 8d 8 8 2 8 = 8 


PD DDE BB AMG IPIPPIPIPINPINIPIPIPINIPPINININPINPINININYPIMDNINPIPYNINIPIPIPIPIPIPIPIPIPIPIPIPIPININND 


SBD BD DW PIII OOD PS LPP 


Dt et et et et ot ot ot at ot at ot nd el eal tal tel Bal eh a al a a a a a Dale Dae aaa ta ak De dae dae dk ak ak ak ke ak ak tak Ink tak tek ee ek tt 


OFFC » WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RIO,R11> =; Entry mask 
SSETSFM_S ENBFLG = ’ : Turn off System Service failure mode 
SSETAST_S ENBFLG = ; We're finished - no more ASTs 
03 0002'CF 04 §0 BBS #ONE_SHOTV, FLAG. 10$ s if one-shot, update testability... 
0088 1 - ND_OPDATE 3 ..-else don't update UVETINIDEV.DAT 
03 0002'CF 02 9 ; BBS tea TO_UPDV,FLAG,20$ ; Only update if it's safe 
OOAF 1 208 BRW UPDATE ; Else forget it 
5A 1250°CF p " MOVAL ~—sINI_RAB Set the RAB | address 
1E AA Ge MOVB. #RABSC ay RABSB_RAC ( igh 3 Set R 
10 AA 1294 "CF 2 moves} #6 008 RFA. RABSW_RFA(R10) j Set RFA DDB Line 
$GET RA R : pect to the DDB vesere 
75 50 3 BLBC RO UPDATE FAILED lure then forg get it 
1E AA 00 MOVE #RABSC_SEQ,RABSB_ sear’ ase back to sequential mode 


‘ 
*Fiag state in the 


N 7 
-SEP- 127: /VMS Macro V04- Page 104 
Vbec000 Ets a ee ee "PEP 19bG beiSsisa LuRtPer.saeiuEyaA7oo0.mar:1 2% 14, 
v04-000 Exit Handler ; 
: it block List header 
5B 01D8'CF ewe oe i 1g 1118 eons ik eel cana coated | ee c. C 
01 €1 15 2148 oe he #UETUNTSV reste ; BR if this unit is not testable 
0B A 179 411 UETUNT$B_FLAGS(R115,10$ 
- 88 D6 «217C 2419 INCL NS ; Count testable units 
17E 4118 108: 
3; Next unit block 
Be $8 £9 1b itis apeie aa only LIST 3 are we full sireie in the list? 
apepctarlgdh 2 AR 188 4121 BNEQ UNI f_LOOP™ ; not 
33 M 18A 41 § TSTL Ro ~ 3 cay qootante units? 
OO18'CF 4E af 3 i : rt 4 Sova PPA/N/ ,BUFFER®A : = selse disable the DDB record... 
R ) @ eee re 
3¢ 50S siéE9 136 2] é Bype RO UPDATE FAILED 3 if orrer then forget it 
1A0 4127 208: 
3 t unit bloc 
BP ge ¢ 189 ty g apple cay kit LIST 3 ee we full at Ae in the list? 
siege er ie 3 1AA 4130 BEQL END UPDATE BR if yes 
24 50 9 188 ay BCBe RO-UPDATE FAILED : If error then forget it 
. 0 BA 188 41 : BICcB2 ae BITM,BuFFER ; Convert to uppercase 
oo1escr CFs $F 91 21BD 4134 CMPB my ; is 58. a e record? 
8 6 ie 4] 3 ts FUETUNTSV TESTABLE ,=. : BR if this unit is testable... 
o018*cre” oe ar 90 ita 2} ; MOVB #AIN/ BOPFERYS . ; «else disable the UCB record... 
> eee r 
C4 50 =«2«€€8 1b9 $120 4 el RO 208 eo : toh ot the next record if no error 
1DC 4141 UPDATE_FAILED: oe 
cD Bb SIDE ate 1  - prmmmagialapie hah Aim gh gy 
0197°CF DF 21E1 4144 PUSHAL JNIDEV. UPDERR 
PF 13 t1e3 EMT #STSSV_SEVERITY,- 0. csp)’ 3; Copy the severity from RMS status... 
70749430 8 fe t1e8 BISL2 gh SEVERITY :RO, ++.tO our message 
SF oo0bbo Gr 5 Hs ifs t1e8 salts fee G* PrageiGnar 
TEA eda) CMD AUP DATE: : id of test toes tite leftovers 
ross cr 8 ee SHER 1ST TAAL go. cueaw : Set cfd of cents 
1 2438 PUSHAL TEST_NAME ; Push the test aol 
6 4154 PUSHL # ; Push arg count 
5 4155 EXTZV ast S$V_SEVERITY,- 3; Push the proper exit severity... 
9 4136 #STS$S— oSF vent Y,° 
¢ 4138 BISL2 pietee ENDED, (SP) 3; «.-and use it in our message code 
15 415 PUSHL #4 
i5 4160 MOVL SP,R1 . - 
1A 4161 SPUTMSG_S MSGVEC = (R1) 3 peteut the messag ia 
41 SSETPRN_S PRCNAM = ACNT_NAME : Reset the process 
} ci6s RET 3 That's all folks 
3 4165 -END UETMA7800 
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VAX/VMS UETP DEVICE TEST FOR ma780 


— 
Cat 
kad 
ata 
<artw 
Be a 
" 


'S 


T_LIMIT 
PTR 
VERSION 


UE TMA7800 
Symbol table 
ACNT_NAME 
“MSGV 
R 


ADAW 
ALL 
ALR 
BEGIN 
BUF FE 
BUFFER 
COMGS™ 
COMMON 
CONS! 
CONTR 


C 
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UE TMA7800 VAX/VMS UETP DEVICE TEST FOR ma780 16-SEP-1984 00:27:39 VAX/VMS Macro V04- Pp 1 
Symbol table $7SEb=] 98s 00:95:86 LOR TPSY.eaeaoevma7eo0.man;1 29° 10S, vee 
FABSV_UPI = 0 MAX_MSG_ TYPE = C 
F ABSW_GBC = 4 MAX_PROC_NAME = F 
FABSW"IFI s 8 MAX-UNIT-DESIG = 5 
FAO BOF 8 $ MA_B_MYPORT AC 
FILE D4 R MA_K_CHKBUF $8 
FIND_IT i3 R 8 MA_K_CHKFAB 9 
FLAG 02 R MA_K_CHKRAB 3 
Ou FC R MA_K_COMF AB = 1 
GETJPT_ITMLST R MA_K_COMRAB = AS 
GETSYI-ITMLST R 5 MA_K_ERRLEN = 02C 
GS_K_ABAWI_P MA_K_SPRBUF gre 
GS_K_END A MA_K_SPRFAB FC 
GS_K_PVT_AREAS A A_K-SPRRAB ret 
GS_K_-Q_ COUNT ° 4 MA_L_DOCLEAR 1E 
GS_K_Q- ENTRIES § MA_L_DOCLEARFAIL 1¢4 
GS-L-ABAWI_C 000 MA_L_DOSET 1E4 
GS_L_AVAILABLE 000 $f MA_L_DOSETFAIL B08 10 
GS"L-CEF FLAG 0 8 MA_L_ERRBLK 38 18 
GS_L_-ECOCEVEL 4 if MA_L_HELLO 00 O16 
GS"L_F INISHED 0 MA_L_IADAWI 4 1D4 
GS_L_INTLK_FLAG 00000034 MA_L_ICU_UCME B08 31Fe 
GS_L_OWNER 444 0 MA_L_INTCKTMO 4 1D0 
GS_L-PARTICIPATING 00 8 C MA_L~ 1QUEUE 0000108 
GS"L_VERSION 000001 MA_L_NOCAUSE 00001C8 
GS_Q" BUSY 000006 MA_L_OLDSTUFF Sogo ice 
GS_Q_FREE 000000 MA_L_RBADCODE 0000188 
GS_Q"SYSGQVERSION 4 de MA_L_RILOSTU 0000184 
GS" T-SECT_NAME 0000000 MA_L- SBADCODE 00001BC 
HECLO_ TIMEOUT = FADATEDO MA_L-SILOSTU 9999180 
HEXUNTT 00001231 R 08 MA_L_SPREF STATE 0 Oo D 
LADAWI_MSG 00000855 R 05 MA_Q” COMEFNAM 30008 F 
1CU_UCRE_ TIMEOUT = Papa MA_Q-COMGSIAD 0000624 
ILLEGAL_REC p0n08 OR 05 MA_Q_COMGSNAM 00000208 
INADDRESS aie ths R 06 MA_Q_COMGSRAD abe TH8 
INCONSISTENCY 0000 366 p 0 MA_Q_ COMMBNAM 000 
INIDEV_UPDERR 00000197 R 05 MA_Q_ DAYTIME 0000144 
INI_FAB 44 44 ? R 06 MA_Q_MEMNAM 4 4 

00001 B 06 MA_Q_SPREFNAM 00002A6 
INPOT_ITMLST 00000072 R 05 MA_Q_SPRGSIAD 0000634 
INTERCOCKING. TEST 00 3 F7 R 08 MA_Q-SPRGSISB 000 Sie 
INTERLOCK_LIAIT = 8 OOOA MA_Q_SPRGSNAM 000027F 
INTERLOCK_SAVED_R6 abt ® 6 MA_Q-SPRGSRAD 000 Ht 
INTERPROC_EF OOOOCAS R MA_Q-SPRMBNAM 0000205 
INTERPROC-GS 9000894 R ? MA_T_CHKFAB 9 $39 
INTLKTMO_ASG AFI R MA_T_COMEF NAM 
1O$M_CTRCCAST tereeeee =X MA_T_COMFAB = 00000014 
1O$M" NOW eeeeeeee =X MA_T_COMGSNAM 0 19 
10$_READVBLK eeeereee =X MA_T_COMMBNAM 6 
10$— SE TMODE teeneeee =X MA_T_MEMNAM 1F9 
10$" WRI TEVBLK tereeeee =X MA_T_SPREFNAM AE 
IQUEUE _MSG 9 f MA_T_SPRFAB a3 
ITERATION 18 Rg 6 MA_T_SPRGSNAM 8 
JPI$_TQCNT s ° 1 MA_T_SPRMBNAM D 
LC_BITM = 02 MA_T_UNIT F 
LIBSS ONAL eeeerere xX 08 MA_W_COMMBCHN 5 
MASK _2_ARGLST 90003 4D R MA_W_SPRMBCHN D1 
MAX_DEV_DESIG = OO00A MA_W_UNIT O1EC 


acro V04- o 107 
. Reo YOR 7S00.MAR: 1 ~— (67) 
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FACILITY 


“SYNCH 
ST 
L 
“P 
“R 
“8 
“8 
“R 
“$ 
“8 
“¢ 
“F 
P 
RAB 


E 
C 
C 
C 
C 
K 
L 


PROC_CONT_NAME 
PT 
I 
I 
I 
I 
I 
i 
® 
R 
§ 
A 
§ 


PROM 
QIOMB 
QIOMB 
QIOMB 
QUAD 
QUE 
RAB 
RAB 
RAB 
RAB 
RANDOM FILL 
RBADC 
RMS$ 
RMS$ 
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Symbol table 
N = 1 
RMS _ERROR 1FFA R SYI$_VERSIO 
re TING ts mR Wee 
SAFESTOCUPDY = 90000009 ; SYNCH-ABOAY 1102 R 06 
SBADCODE_MSG R a H 10E3 R 6 
SCSNODE 1F4 R 6 Maga. as 10bB R 
SCSNODE_ LENGTH 1FA R es ila eeeeeere GX 
SE CSM _ERPREG ceeseeee SYSSASSIGN eeerenee GX O8 
RRRRARRE x 
SECSA_PERM ares svegtAnusn cereeere GX 08 
SECSM_WRT eooeeene am SYSSCLRAST teeenene 8 
arose raat : SYSSCLREF eseneene GX 
SHBSB_PORT s SYSSCMKRNL eeeereee GX 8 
SHBSL_ADP rad SYSSCONNECT weaneene § GX ; 
SHBSL_DATAPAGE - SYSSCREATE eeeeenee 6X 
ht Bett : SY SSCREMBX aseneeee GX 08 
SHDST_NAME = 8 SYSSCRMPSC aeekeene GX 08 
{Aro RO SY SSDACEFC eesceven Gx OOF 
SHM~INFO_ARGS ial cen SYSSDASEGN teeeeeee GX 08 
SH $_ABERDD - SYSSDCLEXH ekeeaeneee GX 08 
SHR$_BEGIND e SYSSDELTVA eeeeeeee GX 08 
SHR$_ENDEDD = SYSSDGBLSC REREEEEE Gx 88 
SHR$_OPENIN = SYSSERASE geenkane GX 8 
SHRS_ TEXT . 05 SYSSEXIT eeeerere GX 08 
SILOSTU MSG R SYSSEXPREG teeeeeee GX 08 
SPREF_EFN = SYSSFAO eeereeeer xX 08 
SP GSFAB R 06 SYSSFAOL RRERREREE Gx 08 
SPRGSRAB R 88 SYSSGET eeeneeee GX 08 
Space -trn : SYSSGETDVI eececene 6X 08 
RGS_EFN - SYSSGETJPI eeeeaeene GX 08 
3 : SYSSGETMSG eecenere 6X 08 
S35 _BRDPARAR . SYS$GETSY IW ereerses GX 08 
s38-conre : SYSSGETTIM eeeenere GX 08 
SSe-KORAMee . SYSSHIBER pessseey OR 0 
SS$_NOSUCHSEC s seco Le 00000061 6x 83 
SSS$_SSFAIL ba SYSSOPEN kereaeee GX o8 
+3 a Sell 4 SY SSPUTRSG erereres GX 06 
SSERROR 08 SYS$Q10 eereeeee GX 8 
SS_SYNCH_EFN s $YS$Q10W eeeeeeee 6X 8 
STATUS 6 SYSSREAD SReeeenre Gx 8 
STRSUPCASE 4 SYSSREADEF eeeeeeee GX 08 
STSSK_ERROR a SYSSSCHDWK eteeeeee GX 8 
STSSK_INFO S SYSSSETAST tekaeeee GX 
STS$K_SUCCESS s SYSSSETEF aeereeee GX 8 
STS$K_W NING s SYSSSETIMR teererer GX 8 
STSS$M_INHIB MSG s SYSSSETPRN Reeeeeese GX 8 
STS$S_FAC nO a SYSSSETPRV aeeneene GX 8 
STS$S_SEVERITY s SYSSSETSFM eeneeene GX 3 
STS$V_FAC_NO “ SYSSTEST 000002CE R 
STS$V- SEVERITY s SYSSTRNLOG ateeeeee GX 
SuUC_ERIT R 8 SYSSUPDATE eeeeneee GX 
SUMMARY_HEADER R SYSSUPDSEC aererene GX 
suede GBLSEC ; g SYSSWAITFR tatenese GX 
SUP _F AB A R 6 SYSSWAKE eeteeeee GX 
SvIE_ SCSNODE - SYSSWRITE reeeeeee Gx 
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UE TMA78 VAX/VMS UETP DEVICE TEST FOR MA780 16-SEP-1984 00:27:39 VAX/VMS Macro V04- Page 109 
Symbol table ae §:85: 6 UETPSY. SREIUETMA7SO0.MAR: 1 ° (67) 
SYSIN_FAB 116C R UPDSEC_HWE 4A8 R 05 
SYSIN-RAB 11BC R oe WRITE _SIZE = 000 
TEST_RAME FR WRONG_VERSION ER 05 
TEST_OVERM = XX z 00E 
TEST_OVERV = 
TEXT BUFFER = C 
THREEMIN ¢ B 5 
TIME_IT 787 R 
TIMEOUT FOF R 
TMO_BADCODE z 1B4A R 
TMO_BYEBYE = 1B4A R 
TMO_BYEF ORNOW 2 1B4A R 
TMO_DOCLEAR 1024 R 
TMO_DOSET 1C B R FAl 
TMO_HELLO 1€37 R FAI 
TMO_1CU_UCME 1C3F R FAI 
TMO_ILOSTU = 8 1B4A R FAI 
TMO_ INTERLOCK = 00001B4A R ; FAI 
TMO_ISCLEAR z 98 1B4A R FAI 
“ISSET = 00001B4A R 8 FA\ 
® Ege 0001C29 R 08 Fil 
TMO—ME 2MEDONE = 00001B4A R 08 GT 
QcAT 00 1168 R 6 JP. 
TTCHAN 99 9 00 R § 
UE TCOMEF QOOO2AE R Oo 
UE TCOMGS 300 81 R 5 
UE TMA7800 S 00 RG 8 
E TMB 002A1 R 05 
UETP = 00740000 
UETP$_ABENDD = 00741060 
UETP$_ABORTC = 00748 
UETP$_BEGIND = 8) 
UE TP$_DATADEVERR = 0074801 
UE TP$_DENOSU = 0074833 
UE TP$_END = 00741 9 
UE TP$_ERBOXPROC = 007480 
UETPS-FACILITY z 9000 4 
UE TP$_OPEN = 0074 8 
UETPS-TEXT = 00741 
ETSPREF 000 BF R 03 
SPRGS 000291 R 5 
UE TUNT$B_FLAGS = 00000 68 
T$B_TYPE = 000 
TUNTSC_DEVDEP = Ad 
UETUNTSC_INDS1IZ = AG 
TSK_FAB = 1 
UE TUNT$K_RAB s 
UE TUNTSM_ TESTABLE = 
UE TUNTST_FILSPC z 
UE TUNT$V~ TESTABLE z 1 
UE TUNT$W- SIZE = 9 
UNIT_DEST C4 R 5 
UNIT“LIST bg fl é 
UNI T~LOOP a 
UNI T~NUMBER DO00TA6 R 
UPDATE _FAILED D0021DC R 
UPDSEC" FAILED 0000404 R 
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UE TMA7800 VAX/VMS UETP DEVICE TEST FOR ma788 P=1984 00:27:39 YAX/VMS 0 V04- Page 1" 
Psect synopsis "SxS P= 1984 be 96: 3 UETPSY.S SRESUEYMA7BO0.MAR; 1 . (67) 

dw eece eee once en an $ 

! i _Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
» OS « $008 ( 8° 0 ¢ OQ.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS$ 00 ( -») Q1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE’ RD WRT NOVEC BYTE 
DEVDEP_STR_DEF oste (17996.) § ( ¢°3 NOPIC USR CON ABS LCL NOSHR NOEXE RD NOWRT NOVEC PAGE 
INTER_PROC 7 6 1.) ( 3.) NOPIC USR CON ABS LCL NOSHR NOEXE RD NOWRT NOVEC PAGE 
INTERPROC_GS_DEF EAs ( 3752.) 4 ( ¢:} NOPIC USR CON ABS LCL NOSHR NOEXE RD NOWRT NOVEC PAGE 
RODATA C50 (¢ 3152.) O05 ¢ 5.) NOPIC USR CON REL’ LCL NOSHR NOEXE RD NOWRT NOVEC PAGE 
RWDATA 4 1448 ( 5288.) § ( §-} NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC PAGE 
SRMSNAM 0 006 ( ) ( 7.) NOPIC USR CON REL LCL NOSH EXE RD WRT NOVEC BYTE 
MA780 000 ( 8757.) 08 ¢ 8.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC PAGE 

' Performance indicators |! 
Phase Page faults CPU Time Elapsed Time 
Initialization 37 0:8 $08.08 00100: 49 
Command processing 140 0:00:0 99 0:00:035.15 
Pass 1 1240 0:00:44.72 0:01 $ 
symbol table sort 2 0:00:03.96 0:00: 2° 2 
56 BB: 712.94 0: 836 $3 

Syabot table output + 700.44 Bp Re: 1.31 
Psect synopsis output 00:00:00.06 0:00:00.38 
Cross-reference output BB 30: 89-88 00:00:00.00 
Assembler run totals 199 0:01:02.9 00:01:59.97 


The york ing sett Limit was 2000 pages. 

256661 bytes (502 pages) of virtual memory were used to buffer the intermediate code. 

There were 140 pages of symbol table space allocated to hold 2509 non-local and 181 local symbols. 
4165 source Lines were read in Pass 1, "aeRin” 68 object records in Pass 2. 

92 pages of virtual memory were used to define 84 macros. 


See anew rene ar ene ease eee we $ 


Macro Library name Macros defined 
=$35580ung8: 5 F3VS-08,94 18 ETP. eH iy ? 
Syst IBISTARLET. MLB:2 8 
rB2S580U (all libraries) 7 


2798 GETS were required to define 79 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:UETMA7800/0BJ=0BJ$:UETMA7800 MSRC$:UETMA7800/UPDATE=(ENHS$: UE TMA7800) +EXECML$/LIB+SHRLIBS$:UETP/LIB 
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